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COMMENT 
SE PRÉSENTE 
VOTRE ORDINATEUR ? 


Vous avez décidé de vous initier au langage BASIC, et pour cet apprentissage vous avez choisi 
l'ORIC-1. 
Vous êtes face à votre ordinateur, livre en main. 


L'écran : 

Il s’agit d’un écran bien familier, celui de votre téléviseur relié à l'ORIC-1 grâce à la prise 

péritélévision. 

C'est par l'intermédiaire de l’écran que l’ordinateur répond à vos questions. 

Mais comment questionner l'ordinateur ? 

L'ordinateur n’étant pas encore en mesure d’accepter les ordres vocaux, vous devez utiliser un 

autre intermédiaire, le clavier. 

‘ <RETURN> 

Le clavier : pour valider 
une ligne 
frappée 


sssssssssssss 
LLC LLLL LE 


CTRL RETURN 


nn nn er 


ECTS 


LLC L LL 


ELA 


1 © S 





<CTRLC> 

pour stopper le <SHIFT > 

déroulement d’un espace pour obtenir les caractères du 
programme. haut des touches à double caractère. 


Comme vous le constatez, il ressemble fort à celui d’une machine à écrire, lettres, chiffres, 
signes de ponctuation, symboles mathématiques, barre d’espacement, tout est là. 


Cependant, par rapport à un clavier classique vous observez certaines différences : 

— La première, la plus frappante, c’est la disposition des lettres. L'ORIC-1 est en effet doté 
d'un clavier QWERTY, comme tous les claviers fabriqués outre-Manche. 

— La seconde est un ensemble de touches inhabituelles : 

DEL sert à effacer un caractère erroné 

<— sert à déplacer le curseur vers la gauche de l'écran 
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— sert à déplacer le curseur vers la droite de l'écran 
Î sert à déplacer le curseur vers le haut de l’écran 
| sert à déplacer le curseur vers le bas de l'écran 


C'est donc grâce à ce clavier que vous allez pouvoir communiquer, DIALOGUER, avec 
l'ordinateur. 


Pour vous familiariser avec ce nouveau mode de communication, tapez (doucement!) sur 
toutes les touches sans appréhension. Vous ne risquez rien. l'ordinateur non plus. 


Tandis que vous vous familiarisiez avec le clavier, vous avez découvert certaines touches 
encore inconnues. 


RETURN : 


C'est à l’aide de cette touche que vous ‘validez’ le message que vous voulez envoyer à 
l’ordinateur. Tant que vous n'avez pas appuvé sur cette touche, vous pouvez effacer les 
caractères frappés avec la touche DEL. 


Appuyer sur la touche <RETURN> pour valider la frappe d’une instruction ou d’une 
commande doit donc devenir un réflexe. 


Si vous l’oubliez, l'ordinateur restera sourd... à toutes vos imprécations! 










L'ordinateur est sous Basic. 


Il attend vos commandes ou instructions 


Ne pas confondre la lettre O 
et le chiffre 0. 


Touche 
< RETURN > 





PRINT 1057 


15 


Ce que vous frappez (1) 


| Réponse de l'ordinateur | 











Remarque : Le message READY qui indique que vous êtes sous BASIC sur TRS-80 devient 
OK sur d’autres machines. 


(1) Nous avons choisi de SOULIGNER FICTIVEMENT sur les représentations d'écran ce que vous frappez pour le différencier 
visuellement des réponses de l'ordinateur. 
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DEL : 


Cette touche vous permet, tant que vous n'avez pas appuyé sur <RETURN>, d'effacer le 
dernier caractère frappé. 

Le curseur se déplace alors de droite à gauche en effaçant le dernier caractère, l’avant-dernier 
et ainsi de suite au fur et à mesure de sa progression vers la gauche. 


Vous avez compris l’utilité de cette touche que vous utiliserez pour corriger vos fautes de 
frappe, si toutefois vous vous en êtes aperçu AVANT d’avoir validé votre ligne par ?... 
<RETURNZ. 

Sinon, patience, nous vous expliquerons un peu plus tard comment modifier une ligne déjà 
créée (voir annexe). 


SHIFT : 


Vous utilisez cette touche pour frapper le caractère supérieur des touches à double caractère. 


SHIFT 


Pour frapper le caractère #. 


Par exemple : 


ATTENTION, à la différence des machines à écrire, la touche SHIFT ne reste pas enfoncée 
tandis que vous frappez le caractère désiré. Vous devez d'ABORD appuyer sur la touche 
SHIFT puis appuyer sur le caractère désiré TOUT EN MAINTENANT LA TOUCHE SHIFT. 





En bref 


e LE CLAVIER vous permet de DIALOGUER avec l'ordinateur. 


e L'ECRAN vous donne la possibilité de VISUALISER cette ‘conversa- 
tion’ qui s'établit entre vous et la machine. 


e La touche retour chariot, RETURN, VALIDE la frappe de l'information 
transmise à l'ordinateur. 


e La touche DEL déplace le curseur en arrière en effaçant les signes sur son 
passage. 


e La touche SHIFT est utilisée pour frapper le caractère du haut des 
touches à double caractère. 
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LE MODE IMMÉDIAT 
(Appelé aussi 
MODE DIRECT) 


Pour dialoguer avec l’ordinateur, il ne suffit malheureusement pas de bien connaître son 
clavier, il faut également parler sa langue, le BASIC. Ne commencez pas à vous inquiéter ; vous 
verrez comme c’est simple! 

Un bref apprentissage vous suffira pour devenir parfaitement bilingue. 


Ceci dit, pour initier la conversation, il vous suffit de frapper une instruction que vous 
n’omettrez pas de valider par <RETURN>. L'ordinateur vous répond alors IMMEDIATE- 


MENT. 


Commençons : 

Version Anglaise Version Française 

— Vous: PRINT 10 +5 — Vous: ECRIS 10 + 5 
— Lui: 15 — Lui: 15 


PRET 


READY 


PRINT 10+5., 


ECRIS 1045 
TA 


15 15 





Regardons de plus près l’écran version B A S I C 
(pour débutants) Beginner’s | | 
(tous usages) All-purpose 

Symbolic 

Instruction 

Code 
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Comme pour toutes les langues, il existe en BASIC une SYNTAXE que vous devez respecter. 
Dans le cas contraire, l'ordinateur ne comprend pas le message que vous lui transmettez. I] 
vous le signale alors en affichant le message SYNTAX ERROR (erreur de syntaxe) et attend 
que vous frappiez de nouveau, sans faute, votre instruction. 






Vous avez fait 
une faute de frappe 





PRUNT_10+5 
2 


SYNTAX ERROR 


Imaginons que vous vous soyez aperçu de cette impardonnable (nous parlons au nom de la 
machine!) faute de frappe avant d’avoir appuyé sur la touche <RETURN3:. 
Qu'auriez-vous pu faire pour remédier à cet oubli ? 


Comme vous l'aurez remarqué, l'ordinateur se contente de vous donner une réponse sans faire 
de discours. 
C'est à vous que revient le soin d'améliorer la présentation de sa réponse. 


Pour ce faire, il vous suffit d'écrire un MESSAGE placé ENTRE GUILLEMETS. 











Message pour 
faire joli : 

il est envoyé tel quel 
par Basic. 








Pr 


PRINT "10 + 5 FONT :" ;10+ 








10 PLUS 5 FONT : 15 





Résultat de 
l'addition. 


READY 


ATTENTION AUX GUILLEMETS ! 


Ce sont les quillemets qui préviennent l'ordinateur qu'il s’agit là d’un message. 
Ce message est parfaitement arbitraire. Vous auriez pu tout aussi bien frapper : 


PRINT "10 - 5 =";1045 
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L'ordinateur mémorise le message placé entre guillemets et l'affiche textuellement. 







L'ordinateur affiche Calcul 
le message. de10 +5 
PRINT "10 - 5 sea ALES 





Ceci vous permet de constater sa fidélité, certes! mais aussi son manque ‘d'intelligence’. 





En bref 


e Le mode IMMEDIAT (ou DIRECT) vous permet de connaître 
‘immédiatement’ l'effet d’une instruction. 





e L'instruction PRINT (ECRIS) est employée pour afficher à l'écran. 

e Le message SYNTAX ERROR indique que l'ordinateur n'a pas compris 
ce que vous lui demandiez. Impuissant, il vous demande de bien vouloir 
frapper à nouveau l'instruction sans vous tromper dans la formulation. 

e Les GUILLEMETS «...» indiquent à la machine qu’elle doit SEULE- 
MENT reproduire le message qu'ils encadrent. 
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MÉMORISATION 
DES VALEURS : 
VARIABLES 


L'instruction PRINT, pour importante qu’elle soit, n’est cependant guère révélatrice des 
possibilités de la machine. 


L'instruction LET variable = valeur : 


Cette instruction permet de conserver en ‘mémoire’ des valeurs qui seront ensuite 
utilisées (pour des calculs par exemple). 


Pour schématiser la notion de variable, comparons-la à une case (c’est d’ailleurs ainsi que nous 
la symboliserons) à l’intérieur de laquelle nous rangeons une valeur. Puis donnons lui un NOM 
afin de l'IDENTIFIER. 

Ainsi pour AFFECTER (donner) la valeur 25 à une variable que nous appelons ‘PRIX’, nous 
écrivons : 


LET PRIX=25 


BASIC range alors la valeur 25 dans une case PRIX. 2 


LET PRIX = 25 


E 


L'ordinateur se souvient de la valeur de PRIX. Pour afficher cette valeur, il suffit de frapper 
PRINT PRIX. 










READY 


LET PRET 7 


READY 


L'ordinateur range 


la valeur 25 dans 
la variable PRIX. 








PRINT PRIX 
L'ordinateur prenne 


se souvient de 
la valeur des PRIX. 
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Le nom donné à la variable, ici PRIX, est arbitraire, pour le vérifier, faites : 


LET PX=25 > 


READY 
PRINT PX=> 


25 





Il est cependant important que le nom variable choisi soit le plus mnémonique possible. 


Calculons maintenant le total d’un produit de 25 Francs pour une quantité de 5. 
Pour ce faire, nous utilisons 2 variables (2 cases). 





variable variable 
PRIX QUANTITE 









READY 
LET PRIX=25 


LET QUANTITES3 








PRINT PRIX#*QUANTITE 


Ne pas confondre 
le symbole de multiplication -K 
et la lettre X. 


Réponse de 
l'ordinateur. 


Les noms de variable ‘PRIX’ et QUANTITE”’ pourraient être 





remplacés par ‘PX' et ‘QT 


LET PX=25 > 


LET QT=3 


PRINT PX*QT 37 


75 
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Nous obiüendrions le même résultat en écrivant : 


LET PX=25 
LET QT=3 
LET T=PX%QT 
PRINT T 


75 


Voyons maintenant comment changer la valeur de la variable QT. Pour lui donner la valeur 5, il 
suffit de faire : 


LET QT=5—> 


(la variable PX, elle, conserve son ancienne valeur) 


On affecte une 








nouvelle valeur 


LET QT=5$ à QT. 





PRINT_PX#QT — 


125 


Naturellement, l'ordinateur ‘oublie’ l’ancienne valeur (3) de QT. 


Imaginons maintenant que le prix augmente de 5 Francs. Nous pourrions bien sûr faire : 


LET PX = 30 
le prix de 5. 


Mais nous pouvons également faire : 








LET PX=PX+527 





LET QT=5 
PRINT PX *QT 7 


150 


LET PX = PX + 5 ne doit pas être compris comme une égalité algébrique. L'ordinateur 
interprète cette insertion ainsi: 
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O n prend le contenu de la case PX 





25 
—1 
(@) Lui ajoute 5 re 
(©) Range le total dans la case PX. 
30 


Exemples : 


Calculons une date de naissance en fonction de l’âge : 


LET AGE=20 — 7 


LET ANAIS=1 983-AGE 20 


PRINT "Date de naissance :";ANAIS > 


Date de naissance: 1963 E 


1963 








Calculons maintenant le total de dépenses (P1, P2, P3) et la somme qu'il reste : 


LET BUDG=100——> A 


LET P1=15> 


LET P2=8- 


. . P | | à | i Fi 
LET DP=P1+P2+P3> 


PRINT "Total depenses:";DP2 


Total depenses: 58 


LET RESTE=BUDG-DP 7 


PRINT "Il vous reste:'"";RESTE 








IL vous reste: 42 
Pour vérifier les valeurs de P1, P2, P3, nous frappons : 


PRINT P1,P2,P3 


15 8 25 
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Si nous avons commis une erreur sur le prix de P2, il suffit de faire : 


ET P2= 
L 2 18 
LET DP=P1+P2+P3> 


PRINT "Total depenses: "PS 





Total depenses: 68 


Pour affecter une valeur à une variable, nous avons utilisé l'instruction LET. 
Aujourd'hui, pour la plupart des BASICS, elle n’est plus obligatoire. 


Il n'y a plus 
LET. 







PRINT PXXQT-Z 









Le résultat est 
le même 
qu'avec LET. 


75 






Pour afficher sur la même ligne le PRIX, la quantité et PRIX*QUANTITE, nous 
séparons les variables par des virgules. 


PRINT PX,QT,PXxQT 


25 3 


À 





Les résultats sont affichés en colonnes 1, 16 et 31 (de 15 en 15). 
Le point virgule empêche le saut de ligne mais ne cadre pas les résultats qui sont 
édités les uns à la suite des autres, séparés par un espace. 


PRINT PX;QT;QTxPX 


255 36205 
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Remarques sur les noms de variables : 


Le premier caractère doit obligatoirement être une lettre. Les autres caractères peuvent être 
indifféremment des lettres ou des chiffres. 


A2 est bon 
2A est interdit 


Sur ORIC-1 seuls les deux premiers caractères sont pris en considération. 


PRIX SO 
PRINT PR | PRIXetPR, 


"c'est la même chose 


40 





PRINT PRIX => 


50 


Pour BASIC, PRIX et PR sont une seule et , ême variable. 


ATTENTION! ORIC 1 n'accepte pas de noms de variables comportant un mot clef du BASIC 
(voir annexe). 


Par exemple TOTAL est interdit car TO est un mot clef du BASIC. En revanche TTAL est 
autorisé. 





En bref 


e Une VARIABLE est une ‘case’ identifiable par un nom mnémonique, 
dans laquelle on range une valeur quelconque. 








e L'instruction LET permet d’affecter une valeur à une variable. 
e On peut ajouter une valeur à une variable X en faisant : 
LET X = X + valeur (ou X = X + valeur) 
e La VIRGULE permet d'afficher les résultats en colonnes 1, 16, 31... 
e Le POINT VIRGULE ne cadre pas les résultats. 
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MÉMORISATION 
DES INSTRUCTIONS : 
PROGRAMME 


Plutôt que de frapper plusieurs fois la même suite d'instructions, nous pouvons la mémoriser. 
Pour mémoriser une suite d'instructions, nous les frappons en leur assignant un 


NUMERO de LIGNE (10, 20, 30...) 
Cette suite d'instructions s’appelle un PROGRAMME. 


N° de lignes 


L'ensemble des 
lignes 10, 20 et 30 






constitue 
un programme. 





10 PX=25-27 





20 AT=6> 


30 PRINT PXx%QT. 
= ——< + 


Il n'y a pas 
de résultat. 


Nous constatons qu’il n’y a pas de résultat. Pour obtenir un résultat, il faut demander 
l'EXECUTION du PROGRAMME par l’ordre RUN. 


ft — ; 
RUN Pour obtenir le résultat, 
hi d 


il faut 
150 frapper < RUN > 


RUN F- 
# %——_ | 2° exécution 


150 





BASIC exécute les instructions une à une dans l’ordre de la numérotation. L’exécution du 
programme peut être demandée plusieurs fois. 


Remarque : Les lignes n’ont pas à être entrées nécessairement dans l’ordre de la 
numérotation. 


ORIC POUR TOUS | 19 


Modification d’une ligne : 


Le plus simple est de la frapper à nouveau : 


30 PRINT PXST/PAOT On a réécrit 
Fe la ligne 30 
LIST (l'ancienne a disparu) | 





10 PX=25 
20 AT=6 
30 PRINT PX,QT,PXxQT 


RUN 
25 6 150 


Ajout d’une ligne : 


L'usage veut que la numérotation se fasse de 10 en 10. Pour ‘insérer’ une nouvelle ligne en 25 


par exemple, il suffit de faire : | 
Pour obtenir les caractères 
minuscules, taper <CTRLT> 


25 PRINT "Prix:";PX;"Quantite:";QT 


la ligne 25. 
10 PX=25 
20 QT=6 


25 PRINT "Prix:"";PX;"Quantite:'";QT re 
30 PRINT PX,QT,PXxQT : | 





taper de nouveau 
<CTRLT> 





RUN 


Prix:25 Quantite:6 
25 6 150 


Liste d’un programme : 


La commande LIST permet de lister le programme (ou une partie du programme) en mémoire 


à chaque fois que nous le voulons. 


LIST 10 > liste la ligne 10 

LIST — 30 — liste de la ligne 10 
LIST 20 — — liste de la ligne 20 
LIST 20-40 -> liste de la ligne 20 


30 
la fin 
la ligne 40 


Q QD 0 
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Suppression d’une ligne : 


En frappant le numéro de ligne suivi de <RETURN>, la ligne est effacée. 


Suppression de 
la ligne 25 






30 PRINT PX,QT,QTxPX 


A l'issue de l'exécution du programme (après le RUN), les variables PX et QT ont conservé 
leurs valeurs. On peut s’en assurer en frappant en mode immédiat (c’est-à-dire sans numéro de 
ligne) : PRINT PX, QT. 


RUN > 


ESS 25 6 150 
immédiat 
AR PRINT PX, QT —> 


25 6 


Pour connaître l'effet d’une instruction, il peut être plus rapide de frapper celle-ci en mode 
immédiat plutôt que de consulter un manuel. 

De même, lors de la mise au point, le mode immédiat est très utile. 

Aussi est-il essentiel d'acquérir le réflexe ‘mode immédiat’. 








En bref 


e Un PROGRAMME est une suite d'instructions numérotées. 








e La numérotation des lignes se fait généralement de 10 en 10 afin de 
permettre l'insertion de nouvelles lignes. 


e La commande RUN lance l'exécution d’un programme. 


e La commande LIST affiche à l'écran le programme présent en mémoire. 
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POUR ENTRER DES VALEURS 
PENDANT L’EXECUTION : 
INPUT «Message ? »; variable 


L'instruction INPUT (ENTRER) permet de fournir des valeurs au programme 
PENDANT son EXECUTION par l’INTERMEDIAIRE du CLAVIER. 


Lorsque BASIC rencontre une instruction INPUT pendant l'exécution du programme, il affiche 
à l’écran le message qui figure dans l'instruction INPUT (Prix ? sur l'exemple) puis ATTEND 
que l’opérateur ENTRE au clavier la valeur de la variable spécifiée dans cette instruction INPUT 
(PX sur l'exemple). 


Lorsque l'opérateur a entré la valeur suivie de <RETURN>., l'exécution du programme se 
poursuit à la ligne suivante. 


OK 


Pour effacer 
NE Introducti nd 
IC 


10 INPUT "Prix? "PX programme. 
20 INPUT ‘“Quantite? ":QT. 
30 PRINT "Total :";PX#QT. 














Fr 
RUN => 
a ee RES Basic attend que 
Prix? + vous entriez : 
l'instruction 10. D Quant ite? ha la valeur de PX 
(instruction 10). 
Total: 40 
— RUN 
" 
Prix? 22 


Quantite? 337 


Total :66 


Remarques : © A l'exécution, ORIC-1 place automatiquement un point d'interrogation 
après le message. Cependant, pour une meilleure lisibilité des programmes, 
nous avons volontairement ajouté ? dans le message. Naturellement, il n’est 
pas obligatoire. 


e La commande NEW permet d'effacer l’ancien programme en mémoire. 
(Sur cet exemple, les nouvelles lignes effaceraient les anciennes). 


L'instruction INPUT est très pratique puisqu'elle permet d'exécuter le programme pour 
différentes valeurs sans qu'il soit nécessaire de modifier le programme lui-même. 
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Exemple : 


Calculons la consommation d’un véhicule. 


10 INPUT ‘Combien de Litres? ";L 
20 INPUT ‘Combien de Km 7? ‘';KM 
30 : 

40 C=(L/KM)x100 


690 PRINT “Consommation aux 100 km:"';C 
#0 GoTo 10 

RUN 

Combien de Litres? 40- 

Combien de Km ? 520, 


Consommation aux 100 km: 7.6 


Remarque : Sur ORIC-1, lors de l'exécution d’une instruction INPUT, l'opérateur doit 
nécessairement entrer une valeur. 
Appuyer sur <RETURN> ne suffit pas pour entrer une valeur nulle. 


BASIC pose 
de nouveau 


la question 





2 PRIX 7 D 


14 INPUT"PRIX?";PX 


. 
PRIX ©? suffit pas 
Ex 





V4 


RUN initialise les variables à 0. 


NEW 

10 PRINT PX, QT Les valeurs de 
PX et QT 

RUN sont nulles. 





0 de 





En bref 











e L'instruction INPUT permet d'introduire les valeurs des variables 
seulement au MOMENT de l'EXECUTION du PROGRAMME. 


e La commande NEW efface le programme en mémoire. 
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BOUCLE: 
GOTO no de ligne 


L’instruction ‘GOTO no ligne’ permet d’exécuter plusieurs fois une même suite 
d'instructions. 


Montrons sur un exemple simple (sans utilité pratique) le mécanisme de GOTO : 
NEW 


19 PRINT ‘Je boucle indefiniment" 
20 GOTO 10 


le 


RUN — 


L'instruction 10 Je boucle indefiniment 
est exécutée Je boucle indefiniment 
indéfiniment. Je boucle indefiniment 





BASIC exécute l'instruction 10 une première fois puis passe à l'exécution de l'instruction 20. 
Cette instruction ‘20 GOTO 10 signifie ‘ALLER EN 10’. L’instruction 10 est donc exécutée à 
nouveau. 


Naturellement, ce programme ne s'arrête jamais... sauf si vous appuyez sur la touche CTRL 
puis, tout en maintenant celle-ci, sur la touche C 


Je boucle indefiniment 

BREAK IN(10) #7 | Appuyezsur 
L'exécution ed 
est stoppée. READY À 


Utilisons cette instruction GOTO dans un contexte plus proche de la réalité. 
Supposons que nous devions faire plusieurs fois la somme de 2 nombres. 





10 INPUT ‘Premier nombre? "':N1 
O0 INPUT ‘'Deuxieme nombre?'"';N2 
30 PRINT ‘'Somme:'">N1+N2 

40 PRINT "Produit :'"":N1xN2 

50 GOTO 10 


RUN 


Premier nombre? 5. 
Deuxieme nombre?_3- 
Somme : 8 # 
Produit :15 
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Premier nombre? 8 
A Deuxieme nombre? _3=> 


On est revenu 1 
à l'instruction 10 Somme î 
Produit : 24 


Premier nombre? 


| Appuversur 





BREAK AT 10 


Exemple : 


10 INPUT ‘Quel age avez vous? ‘"';AGE 
20 ANAIS=1983-AGE 

30 PRINT ‘Vous etes ne en:'"';ANAIS 
40 GOTO 10 


R 
UN 
Quel age avez vous? 207 


Vous etes ne en: 19% 


Quel age avez vous? 


Pour provoquer un saut de ligne avant d'afficher «vous êtes né en : », ajouter l'instruction : 


25 PRINT 
Provoque un 
saut de ligne. 


Remarque : Vous pouvez également taper 25 ? 


A l'exécution le ? est remplacé par l'instruction PRINT 


Instruction REM 


Il ne s’agit pas d’une instruction à proprement parler puisqu'elle n’a pas d'influence sur le 
déroulement du programme. 


Elle permet d'introduire des remarques dans le programme et d'améliorer sa 
présentation. (REM vient de REMark). 


Tout ce qui suit 
REM est du commentaire. 


S REM —-- Somme et produit de 2 nombres -- 
10 INPUT ‘Premier nombre? ‘';:N1 
20 INPUT ‘'Deuxieme nombre? ‘"'>N2 
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25 REM -- 
30 PRINT ‘'Somme:'';N1+N2 


Pour séparer 40 PRINT ‘Produit :'"";N1xN2 
2 phases 
du programme 


26 








En bref 


e L'instruction GOTO no ligne (ALLER EN no ligne) provoque la 
poursuite de l'exécution du programme à la ligne spécifiée. 





e REM permet d'introduire des commentaires dans le programme. Elle est 
ignorée à l'exécution. 


© Afin de clarifier la lecture d’un programme, il est souhaitable d'y insérer 
des commentaires à l’aide de REM (ou |). 


e <BREAK> ou <Ctrl C> permet de STOPPER l'exécution du 
programme. 


e <CTRLC> permet de stopper l'exécution d’un programme 
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TESTS: 
IF condition THEN instruction 
(SI condition ALORS instruction) 


L’instruction IF... THEN... permet de tester si une condition est vraie et d'exécuter 
une ou plusieurs instructions si la condition est vraie. 


10 INPUT "Donnez moi un nombre? ‘';N1 
20 IF CN1>10) THEN PRINT "Vous avez frappe un nombre superieur a 10", 


30 PRINT "Suite" 
&O GOTO 10 NX 


RUN 








Æ Cette instruction 
: n'est exécutée que 
Donnez moi un nombre? 15-27 si NI est 
Vous avez frappe un nombre superieur à 10" | plus grand que 10. 
Suite 


Donnez moi un nombre? 8 
Suite 


L'instruction 20 signifie : 


20 SI N1 est superieur a 10 ALORS ecris "Vous avez frappe un ....... 
! l 


IF THEN 





Que l'instruction après THEN soit exécutée ou non, le programme se poursuit après 
l'instruction qui suit IF... THEN... 


C'est dans cette instruction (ainsi que GOTO) que réside toute la puissance de l’ordinateur 
puisqu'elle rend possible l'exécution de séquences d'instructions seulement dans certains cas. 
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Remarque : Pour exécuter plusieurs instructions, il suffit de les séparer par le caractère : (deux 


points). 
[3 instructions 


20 If(N1 > 10) THEN PRINT : PRINT «vous avez... » : PRINT 
— 





Provoque un saut 
de ligne 


avant l'affichage 
du message. 





Les différents opérateurs de comparaison sont : 
= égalité > supérieur à > supérieur ou égal à 
< inférieur à <> différent de € inférieur ou égal à 


Sortie de boucle : 
L’instruction IF... THEN permet de «sortir» d’une boucle. 





20 


QT < ENTRER | 
QUANTITÉ 


Le programme ci-dessous effectue la totalisation d’achats. 
10 T=0 = 


20 INPUT "Quantite? ";QT 
30 IF QT=0 THEN GOTO 100 
40 INPUT "Prix? ‘'';PX 

50 T=T+QT4PX 

60 GOTO 20 — 


1 PRINT ‘"Total:'";T 


110 END 


30 





RUN 
AFFICHER 


T 






Quantite? 3% 
Prix? 507 


Quant ite? 1% 
Prix? 12 POUR FINIR 
Quantite? Ode 


Total: 162 


PX <- ENTRER PRIX 
40 


Lorsque tous les achats ont été totalisés, nous entrons 0 en réponse à la question ‘Quantité ? 








Le test de la valeur O0 en 30 permet de ‘sortir de la boucle pour afficher le total. 


Sortie de boucle à l’aide d’un compteur 


Une autre façon pour sortir d’une boucle consiste à compter le nombre de passages dans la 
boucle à l’aide d'une variable (COMPTEUR sur l'exemple). Un test de la valeur de 
COMPTEUR permet de sortir de la boucle. 
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10 CONPTEUR=0 











COMPTEUR 0 
20 T=0 T 0 
30 : 
40 INPUT ‘Nombre? ‘"';X 
50 T=T+X 


60 COMPTEUR=COMPTEUR +1 
70 IF COMPTEUR=10 THEN 100 
80 GOTO 40 


100 PRINT "TOTAL:'"':T 


RUN 


X < ENTRER UN 
NOMBRE 


Nombre? 12. 
Nombre? 1. 10 fois 
Nombre? 133 





COMPTE <- COMPTEUR +1 


Nombre? 157 


TOTAL:142 


AFFICHER 
TOTAL T 


Si le nombre de valeurs à ajouter n’est pas connu à l’avance il suffit de faire : 


5 INPUT ‘Combien de nombres? ‘';NB 


70 IF COMPTEUR=NB THEN 110 


RUN => 


Combien de nombres? 4 


Nombre? 12-37 
Nombre? 6 
Nombre? 8 
Nombre? 13-37 


4 fois 


TOTAL: 39 


Test de conditions multiples : 


Des conditions multiples peuvent être testées avec les OPERATEURS LOGIQUES 
AND et OR. 


condition 1 AND condition 2: Les instructions après THEN ne sont exécutées que si 
condition 1 ET condition 2 sont vraies. 
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10 INPUT ‘Donnez un nombre? "';N 

20 IF C(N>0) AND (N<10) THEN PRINT ‘'Ce nombre est superieur a 0 ET 
inferieur a 10" 

30 GOTO 10 


RUN 


Donnez un nombre? 5 

Ce nombre est superieur à O0 ET inferieur a 10 
Donnez un nombre? 13. 

Donnez un nombre? 


condition 1 OR condition 2 : Les instructions après THEN sont exécutées si condition 1 OÙ 
condition 2 est vraie (ou les deux). 


10 INPUT ‘Donnez 2 nombres X,Y ? ">X,Y 
20 IF CX>0) OR (Y>0) THEN PRINT "’X OÙ Y est positif (ou Les deux)" 
30 GOTO 10 


RUN 


Donnez 2 nombres X,Y? 12,4 
X OU Y est positif (ou Les deux) 


Donnez 2 nombres X,Y? -4,-12- 


IF condition THEN instructions ELSE instructions 


IF... THEN... ELSE... permet d'exécuter des instructions si la condition testée 
est fausse 


10 INPUT ‘Quel est votre age? "'>AGE 
20 IF AGE=>18 THEN PRINT "Vous etes majeur", ELSE PRINT ‘Vous etes mineur’ 
30 PRINT ‘suite 


40 GOTO 10 Instruction exécutée si Instruction exécutée si 
la condition testée est vraie la condition testée est fausse 








RUN 


Quel est votre age? 25 
Vous etes majeur 
suite 


Quel est votre age? 17 


Vous etes mineur 
suite 


30 | oRIC POUR TOUS 


BOUCLE AUTOMATIQUE : 
FOR... NEXT 


Soit à afficher les nombres 1, 2, 3 et leurs carrés 1*1, 2*2, 3*3. 


1'° solution : (sans GOTO et IF... THEN) 
10 N1=1 
20 PRINT N1,N1*N1 NZ 
30 N1=N1+#1 
40 PRINT N1,N1%xN1 


50 N1=N1+1 
60 PRINT N1,N1*N1 


RUN 


—_—# x 2 
1 1 
2 LA 


Pour calculer les carrés des nombres de 1 à 100, cette méthode serait fastidieuse. 


2° solution : (avec GOTO et IF... THEN...) 


Aussi, plutôt que d'écrire plusieurs fois la séquence : 

N1 = N1 +1 

PRINT N1, NI*NI 

écrivons-la une seule fois. 

Pour l’exécuter plusieurs fois, nous utilisons une instruction de branchement GOTO. et pour 
‘sortir’ de la boucle, nous testons la valeur de N1. Dès que N1 devient supérieur à 3, nous 
stoppons le programme. 


NI 
10 N1=1 
30 PRINT N1,N1xN1 
On passe Ë N1=N1+1 de, 


3 fois dans| æ | 50 IF N1>3 THEN GOTO 100 
la boucle 60 GOTO 30 K 
100 END 


—— ee 
la boucle 
RUN 
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Pour obtenir la liste des carrés des nombres de 1 à 100, il suffit de changer l'instruction 50 : 


50 IF N1=100 THEN GOTO 100 


Pour bien voir comment se ‘déroule’ le programme, utilisons l'instruction ‘TRON’ (TRACE 
ON). Les numéros des instructions exécutées sont alors visualisées. 


5 _TRON TOR 


[ ne des instructions 
exécutées 
lies 


. <20> <30> 1 
<40> <50> <30> 2 
<40> <50> <30> 3 : 
<40> <50> <100> 


Fe Sortie de 
la boucle 
5 
F <— Pour supprimer 
RUN l'instruction TRON. 


UN D = 
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3° solution : (boucle automatique FOR... NEXT...) 


Simplifions l'écriture du programme précédent avec une boucle ‘automatique’, la boucle 


FOR... NEXT. 
Es 
Es Fa leur 
> Fa 
10 FOR N1=1 TO 3 1 10 POUR N1=1 JUSQU'A 3 


PRINT N1, ne { 20 ECRIS N1,N1xN1 


2 se NEXT N1 1 30 ENCORE N1 
Boucle 
automatique 


Cette instruction 
est exécutée 3 fois : 


4 
; 4 Incrémente N1 
3 9 de 1 puis 





pour N1 = 1 
pour N1 = 2 
pour N1 = 3 





renvoie à l'instruction 
après FOR 





Comment se déroule ce programme ? 


— L'instruction 10 stocke en mémoire la ‘valeur limite’ 3 et donne à la ‘variable compteur N1 
la valeur 1 


— L'instruction 20 est exécutée avec N1 = 


— L'instruction ‘30 NEXT N1’ augmente N1 de 1 et teste si N1 est INFERIEUR ou EGAL à la 


‘valeur limite’ 3. 
Si N1 est inférieur ou égal à 3, l'instruction après FOR (20) est à nouveau exécutée avec 


NI =2 


Ainsi, l'instruction 20 est exécutée 3 fois avec N1 = 1, 2, 3. 


Exemples : 
Pour afficher 5 lignes d'étoiles : 


10 FOR N=1 TO 5 
20 PRINT ‘'xkkkkkkkak!! 


30 NEXT N 
RUN 


RRRRRRRRRAÉ 
RRRRARRERRRÉ 
RARRRRRR RAR 
RRRRRRR RER RÉ 
KARRRRARÉERÉ 
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Pour afficher les carrés des nombres de 4 à 6: 


10 FOR N1=4 TO 6 

20 PRINT N1,N1xN1 

30 NEXT N1 

40 PRINT ‘La boucle est terminee" 


RUN 


& 16 

5 + 25 

6 36 

La boucle est terminee 
5 TRON> 


RUN 3 


<10> <20> 4 16 
<0> <20> 5 25 
<30> <20> 6 36 
<30> <40> La boucle est terminee 


LE 


Syntaxe complète de la boucle FOR : 
Un pas d'exécution peut être spécifié par STEP : 


La spécification ‘STEP pas’ indique qu'il faut faire 
progresser le compteur de ‘pas’ à chaque 
exécution de la boucle. STOCKAGE DE VALEUR FIN 


COMPTEUR <- VALEUR DÉBUT 


FOR 








Si l’on omet la spécification STEP, le compteur 
progresse, par défaut, de 1 à chaque passage. 
Ne pas spécifier le ‘pas’ ou lui donner une 


valeur égale à 1 est donc identique. 








EXÉCUTION DES INSTRUCTIONS 
ENTRE FOR et NEXT 


| ' 


| COMPTEUR <- COMPTEUR + PAS 
NEXT 





















COMPTEUR OUI 


> 
VALEUR FIN 


FOR compteur = valeur début TO valeur fin STEP pas 
instruction 1 
instruction 2 


c…sssssssress 


NEXT compteur 
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Lorsque l'instruction FOR est exécutée, BASIC affecte à la ‘variable compteur la ‘valeur début’ 

spécifiée et stocke la ‘valeur limite’ indiquée. 

Toutes les instructions entre FOR et NEXT sont d’abord exécutées avec compteur = valeur 

début. 

L'exécution de l'instruction NEXT augmente la valeur de ‘compteur’ de ‘pas’ 

e Si la valeur de ‘compteur’ est inférieure à la ‘valeur limite’, les instructions entre FOR et 
NEXT sont à nouveau exécutées avec la nouvelle valeur de ‘compteur’. 

e Si la valeur de ‘compteur’ a atteint la ‘valeur fin’, l'exécution de la boucle s'achève et le 
programme se poursuit après l'instruction NEXT. 


Exemples : 
STEP positif : 


10 FOR C=1 TO 5 STEP 2 
20 PRINT C; 

30 NEXT C 

4O PRINT "C'est fini" 


RUN 


1 3 5 C'est fini 


Table des sinus : 


10 FOR ANG=9 TO 3.14 STEP 3.14/10 
20 PRINT ANG,SIN(ANG) 
30 NEXT ANG 


RUN 


0 0 

-314 .308866 
.628 .587528 
.942 .808736 


STEP négatif : 


10 FOR C=3 TO 1 STEP-1 
20 PRINT C; 

30 NEXT C 

RUN 

3 2 1 


Une boucle FOR est exécutée au moins une fois, même si ‘valeur limite’ est inférieure à ‘valeur 
début’. 

10 D=3:F=1 

20 : 

30 FOR C=D TO F La boucle 


4&O PRINT C ne devrait pas 
50 NEXT C être exécutée 


RUN 


3 
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Il faut donc prévoir un test. 


35 IF C>F THEN 50 


Erreurs : 

10 FOR I=1 TO 5 

20 PRINT I 

30 NEXT J 

Fe Erreur! 

RUN Remplacer J par I 

1 

NEXT WHITOUT FOR IN 30 
Exemple : 


Table de multiplication par 8 : 
Cette boucle FOR affiche la table de multiplication par 8. 


30 FOR N1=1 TO 10 
40 PRINT N1,"X";8; "="; N148 


50 NEXT N1 ds 


RUN 
1x8-78 

2 X 8 = 16 
3 X 8 = 24 
10X 8 = 80 


Sans boucle,il faudrait ecrire: 


10 PRINT 1;"x";8;"=";1%x8 
20 PRINT 2;'"#";8;'=";2%8 
30 PRINT 3;"*";8;"=";3%8 
C'RPPEEEESES EEE EEE EETS 
90 PRINT 9;"*x";:8;"=";9%8 
100 PRINT 10;"x";8;"=";10%8 


Ce qui serait, vous en conviendrez, par trop fastidieux ! 
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Pour généraliser ce programme à toutes les tables de multiplication : 


10 INPUT ‘Quelle table? "ST 
20 : 

30 FOR N1=1 TO 10 

&O PRINT N1;"X"5T; "=" NTAT 
50 NEXT N1 

60 GoTO 10 


RUN 
—Æ 
Quelle table? 2-7 


9=9 
9=1 


1 X 
ex 8 
Boucles emboîtées 


Plusieurs boucles FOR peuvent être emboîtées. 
Le programme ci-dessous affiche les tables de multiplication de 2 à 5. 
La boucle ‘interne’ est exécutée une première fois avec T = 2 puis avec T = 3 etc. 


M —— 
10 FOR T=2 TO 5" 
15 PRINT ‘Table de:'"":T jusqu'à 
D ee F0 PRINT N15"X "TS "=" NTAT 
40 NEXT N1 
interne 


50 PRINT 
— 
60 NEXT T 
RUN 
Provoque un 

Table de: 2 saut de ligne 
T=2 

1X2=2 

2X2=4 

3X2=6 

10 X 2 = 20 
T=3 Table de: 3 

1X3=3 

2X3=6 
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Essayez ce programme en y insérant l'instruction TRON pour mieux comprendre son 
déroulement. 


Exemple : 


Voici une horloge qui affiche les heures, minutes et secondes : La temporisation en ligne 50 


doit être adaptée à votre ordinateur. 


Vous pouvez obtenir 


10 FOR H=0 TO 23 
20 FOR M=0 TO 59 
30 FOR S=0 TO 59 


40 PRINT H;'"h.";M;"m.";sS;"s." 
50 FOR TP=1 TO 170:NEXT TP 
60 NEXT S 

70 NEXT M 

80 NEXT H 

RUN 

ne” 

Oh. Om. Os. 

0h. Om. 15s. 

0h. 0m. 25s. 


59 PLOT 19,14,STR$(H)+"H" 
52 PLOT 15,19,STR$(M)+"M" 
54 PLOT 21,14,STR$(S)+"S" 


(voir chapitre ‘Adressage direct écran) 
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l'affichage ‘direct en faisant : 


:REM temporisation 


REPEA L::: UNTIE 


Cette instruction permet d'exécuter des instructions jusqu’à ce qu’une condition soit vérifiée. 


14 REPEAT 

24 :PRINT "APPUYEZ SUR UNE TOUCHE" 
34 UNTIL KEYg<>»>'"" 

LG : 

54 PRINT C'EST FINI 

RUN 


APPUYEZ SUR UNE TOUCHE 
APPUYEZ SUR UNE TOUCHE 


Dès que vous appuyez sur une touche du clavier, la boucle REPEAT... UNTIL s'arrête. 
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LES CHAÎNES 
DE CARACTÈRES 


Il existe des variables du type ‘chaîne de caractères’. Elles sont distinguées des 
variables numériques par la présence du signe $ à la fin du nom des variables. 


Ces variables sont utilisées dans la plupart des applications (gestion, éducation, jeux). 


AT ( 
10 INPUT ‘Votre nom? ‘"";NOM$ NOM$ 
20 : 


O PRINT NOMS [clalmIP arts] 


40 GOTO 30 
RUN => 
Votre nom? CAMPAS > 


CAMPAS Appuyer sur 
CAMPAS <CtrilC > 
CAMPAS pour stopper. 








Pour empêcher le saut de ligne après l’édition du nom, il suffit d’ajouter un point 
virgule après NOM. 


30 PRINT NOM$; => 





RUN 


CAMPASCAMPASCAMPAS 


L'affectation de la valeur ‘CAMPAS’ à NOM$ nécessite la présence de guillemets. Autrement 
‘CAMPAS serait considéré comme un nom de variable. 


AT AT Il faut 
10 NOM$='""CAMPAS des guillemets 


20 PRINT NOM$ 


RUN 
CAMPAS 


La longueur des chaînes est limitée à 255 caractères. 
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Comparaison de chaînes : 


La comparaison de chaînes est faite (par BASIC) de gauche à droite caractère par 
caractère. 


Dès qu'un caractère d’une chaîne devient différent du vis à vis, la comparaison s'arrête. 


Sens de comparaison 


AO INPUT ‘ler nom? "';N1$ 
20 INPUT ‘2eme nom? ":N2$ 


30 : ms LPlupPtofnfol 
\40 IF NI$S>N2$ THEN PRINT N1$;'"" est plus grand que '"';N2$ { 1 
50 GOTO. 10 


sun wPLEEE TE 


er nom? DURAND 


ROC 7 Dès qu'un caractère 
2eme nom? DUPOND—, devient supérieur 
à l'autre. 
DURAND est plus grand que DUPONT la comparaison s arrête 


(R est plus grand que P) 


Concaténation de chaînes : 


La concaténation (ou addition) de chaînes se fait à l’aide de l’opérateur ‘+’ (comme 
pour les variables numériques). 


NOMS PRENS 


10 INPUT "Votre nom? ""}NOM$ fclaflm{Pr[als] RLaLImlofnll] 
à 


20 INPUT ‘Votre prenom? ‘'>PRENS$ 





30 : 27 

50 VS-NONSI" My 2PRENS x CHERE) 
Nr 

Votre nom? CAMPAS 97 - 

Votre prenom? RAYMOND | XS$ - NOMS + PRENS | 








CAMPASRAYMOND 


CAMPAS RAYMOND [vs-Noms-" ‘-PRENS] 
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Longueur d’une chaîne : LEN(chaîne) 


LEN (chaîne) donne le nombre de caractères d’une chaîne. 


10 INPUT "Votre nom? ‘'>:NOM$ 
20 L=LEN (NOMS$) NOMS$ 


30 PRINT ‘Votre nom comporte ‘';L;"'caracteres" 
a[m[rfals] 


+ = 6 — 


RUN 


Votre nom? HONPRÈ = 





Votre nom comporte 6 caracteres. 


Une variable chaîne peut voir sa longueur varier en cours d’exécution de programme. La 
longueur maximum n’a pas à être réservée en début de programme. 


LEFT$(chaîne, longueur à prendre) 


Donne les caractères de gauche d’une chaîne. 


190 X$="ORIC1POUR TOUS" 
20 YS$=LEFTS(X$,5) 


30 PRINT Y$ 

ne x ORDTIDT TL ERI] 
—+# LEFTS (X$, 5) 

ORIC1 


pofrfifefi 
Par exemple : 


10 INPUT ‘Votre nom? ‘':NOM$ 
20 FOR L=1 TO LEN(NOM$) 

30 PRINT LEFTS$(CNOM$,L) 

40 NEXT L 


RUN 


Votre nom? CAMPAS => 


C 

CA 

CAM 
CAMP 
CAMPA 
CAMPAS 


42 | oRIC POUR TOUS 


RIGHTS$(chaîne, longueur à prendre) 


Donne les caractères de droite d’une chaîne. 


10 X$="ORIC1POUR TOUS" 55 
20 PRINT RIGHTS(X$,4) 


RUN | RIGHTS 1x.) 


Le programme ci-dessous affiche les permutations circulaires d’une chaîne : 


10 NOM$=""CAMPAS"" 

20 PRINT NOM$ 

30 FOR N=1 TO LEN(NOMS$) 

40  NOMS$S=RIGHTS(NOM$, 1)+LEFTS$(NOM$, LEN (NOM$)-1 ) 
50 PRINT NOM$ 

60 NEXT N 


NOMS 


RUN es 
CLR 


CAMPAS mi 2 
SCAMPA 


ASCAMP 
PASCAM 
MPASCA 
AMPASC 
CAMPAS 


MID$ (chaîne, position début, longueur à prendre) 


Donne les caractères du milieu d’une chaîne. 


10 X$="ORIC1POUR TOUS" 


20 Y$=MIDS(X$,7,4) X$ LES 

30 PRINT YS ones L vou [ro | 

RUN n 

ie POUR | Y$ - MIDS(XS. 7.4) 
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Par exemple : 


10 INPUT "Votre nom? ‘'';:NOM$ 
20 FOR P=1 TO LEN(NOM$) 
30 PRINT MID$(NOMS,P,1) 
40 NEXT P 


RUN 





? 
Votre nom? CAMPAS— 





n>UTE>AN 


Le programme ci-dessous affiche le nom à l'envers. 


10 INPUT ‘Votre nom? ‘';:NOM$ 
20 FOR P=LEN(NOM$S) TO 1 STEP-1 
30 PRINT MIDS(NOMS,P,1); 

40 NEXT P 


RUN 
Votre nom? ZDUNECK-— 
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Celui-ci découpe une phrase : 


10 INPUT ‘Entrez une phrase? ‘"';PH$ 
20 : 

30 FOR P=1 TO LEN(PH$) 

&O X$=MIDS(PH$,P,1) 

50 IF X$©'"" "" THEN Y$=Y$+X$ 

60 IF X$=" " THEN PRINT Y$:Y$=""" 
70 NEXT P 

80 PRINT Y$ 


RUN 


Entrez une phrase? LE PETIT CHAT RONRONNE 





gd 


LE 

PETIT 
CHAT 
RONRONNE 
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POUR REMPLACER UNE PARTIE DE CHAINE 


10 X$="AAAAAAAAA'" xs } 

20 P=4:Y$="Z772" 

30 CUSUB 100 [_aaa [am | 
40 PRINT X$ 

50 END 


100 XS$=LEFT$(XS,P-1)4+Y$+RICHTS(XS,LEN(XS)-P-LEN(YS )+1) 
110 RETURN 


ASC(caractère) 
Donne le code d’un caractère. 


Tous les caractères sont représentés de façon interne (pour la machine) sous forme binaire. Le 
programmateur a accès à ces codes sous forme décimale. 


10 c$="B" X$ 
20 PRINT ASC(C$) 

Ÿ 
Rex 67 (code) 
66 


Les codes de l'alphabet (A, B, C.... Z) sont 65, 66, 67... 91 


ASC(chaîne) 
Donne le code du premier caractère de la chaîne. 
La chaîne ne doit pas être vide. 


10 X$='""CHARLIE" 


20 PRINT ASC(XS) 67 
RUN > C | (caractère) 
67 
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CHR$ (code) 


Fournit un caractère. Certains caractères seulement sont imprimables. 


10 X=67 
20 PRINT CHR$(X) 


RUN 
A 
C 
10 FOR C=65 TO 65+26 


20 PRINT CHR$(C); 
30 NEXT C 


RUN 
cn 4 
ABCD.....2 


Ce programme fait correspondre à chaque lettre de l'alphabet, la lettre suivante (par exemple, 
à À on fait correspondre B) 


10 INPUT ‘Votre nom? ‘';NOM$ 
20 : 

30 FOR P=1 TO LEN(NOM$) 

40 X=ASC(MIDS (NOMS,P,1)) 
50 PRINT CHR$(X+1); 

60 NEXT P 


RUN 
Votre nom? CAMPAS 27 
DBNQBT 
Certains caractères servent à envoyer des commandes aux périphériques : 


Quelques codes ASCII : 


PRINT CHRS(10); provoque un saut de ligne (sans retour en début de ligne) 
PRINT CHR$(13); provoque un retour en début de ligne (sans saut de ligne) 





Nom codé 


La fonction CHR$ (code) est utilisée pour l'envoi de caractères spéciaux à l'écran: 
changement de couleur, clignotement, doublement de la taille des caractères, etc. 
(cf caractères spéciaux p. 133). 
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STR$(X) 


Convertit un nombre sous forme d’une chaîne, permettant ainsi l’accès à chacun des 
chiffres par les fonctions LEFT$, RIGHTS, MID$. 


10 x=75010 

20 X$=STRS(X) 

30 PRINT X 

40 PRINT XS$,RIGHTS(XS, 3) 


RUN 
X 


C4 
7501 
750104 x 01047 


Notez la présence d’un caractère en début de chaîne. Il correspond à la place du signe + 
(implicite). Son code est 2. 


VAL(chaîne) 


Donne la valeur numérique d’une chaîne commençant par des chiffres (ou un 
espace). 


Si la chaîne commence par une lettre, la valeur est nulle. 


10 PRIX$='""22 DOLLARS" 
20 X=VAL(PRIX$) 
30 PRINT X 


RUN— 
22 


Une chaîne ne peut être traitée directement comme une valeur 


10 PRIX$=""22" 
20 PRINT PRIX$*3 ---> provoque une erreur 
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RECHERCHE D’UNE CHAINE 
DANS UNE AUTRE CHAINE : 


CH$ 
X$ 


oué 


Comparaisons 
succesives 


ES 
-— 
— 
— 
El 


SA ee NORIC FOUR TOUS" 






FO UCHAINE CHERCHEE "CH 
E 1% 











4 IF F=ë THEH PRINT "CHAINE NON TROUVEE “:GOTO 4@ 
"B FRINT OTO 4% 
AA RER 


i THEH RETURN 


Remarque : Une chaîne entrée par INPUT ne doit pas comporter de virgule (qui est 
considérée comme séparateur). 


10 INPUT ‘Rue? ‘RUES 
RUN 


Rue? 11 rue de CLATIGNY 


Si l'opérateur entre une virgule après 11, tout ce qui suit 11 est ignoré. 
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MISE AU POINT 
DES PROGRAMMES : 
CTRE C-STOP-CONT 


Les programmes ne fonctionnent pas toujours ‘du premier coup’. Basic envoie des messages 
pour certaines erreurs (de syntaxe par exemple) mais ne détecte pas les erreurs de logique. 
Pour les cas les plus délicats, il faut suivre le déroulement du programme étape par étape, ce 
qui est relativement simple en BASIC. 


e En appuyant sur <CTRL C>, nous interrompons l'exécution du programme. 


Nous pouvons alors visualiser les valeurs des variables en mode immédiat. 
L'exécution interrompue peut être poursuivie en frappant CONT (continue). 


Exemple 


Le programme ci-dessous effectue la moyenne de plusieurs notes. 
Nous avons commis (volontairement !) une erreur : En 50, au lieu de TNTE = TNTE + NTE, 
nous avons écris TNTE = NTE. 


10 TNTE=0 

15 NNTE=0 

20 : 

O0 INPUT ‘Note? "';:NTE 

40 IF NTE=0 THEN GOTO 100 

50 TNTE=NTE eg — 
60 NNTE=NNTE +1 

70 GOTO 30 

80 : 
100 PRINT ‘Moyenne :'""; TNTE/NNTE 





ERREUR! 
TNTE = TNTE + NTE 








FF On entre O 
pour indiquer la fin 
Note? 157 des notes 
Note? 13 
Note? 18 


Note? O0 
[Le moyenne devrait être 15.3 


Moyenne:6 g— 








Naturellement, la moyenne obtenue (6) est fausse. 
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Remarque : Les instructions 10 et 15 qui initialisent les valeurs de TNTE et NNTE à zéro ne 
sont pas indispensables puisque RUN les initialise à zéro. Il est cependant plus prudent de le 
faire dans un programme plus important où TNTE et NNTE pourraient déjà avoir été utilisées 
dans une autre partie de programme et avoir une valeur non nulle. 


Exécutons à nouveau le programme et interrompons-le après avoir entré la première note. 
Nous pouvons visualiser en mode direct les valeurs des variables NTE, TNTE et NNTE. 





RUN => 
Note? 15 On appuie sur <CTRL C> 
Note? #7 pour interrompre 
D. RE 
Visualisation BREAK AT 30 
des valeurs en — PRINT NTE 2 INTE,NNTE => 
mode direct 
15: 15% 1 





Pour l'instant, rien d’anormal. 
Frappons CONT pour continuer l'exécution du programme et interrompons à nouveau le 


programme après avoir entré la 2° note : 


Pour CONT 
sd — 
On appuie 








Note? 13. à nouveau sur 
Note? pd <CTRLC> 
Le cumul pour PAEAR-AT 30 
TNTE n'est PRINT NTE,TNTE ,NNTE 
pas effectué 
13 13 2 
D, À 


Nous nous apercevons en regardant la valeur de TNTE que le cumul des notes n’est pas 
effectué. 


STOP : 


Au lieu d'appuyer sur les touches <CTRL C>, nous aurions pu placer une instruction ‘STOP” 


en 65. 
re 
cette instruction 
On peut voir 


RUN 


à chaque passage 
dans la boucle 


Note? 157 


comment évoluent 


les valeurs 
BREAK AT 65 dl des variables 
TNTE et NNTE 





PRINT TNTE,NNTE Fr 


15 1 


50 | oRIC POUR TOUS 


CONT 


Note? 1 


BREAK AT 65 
PRINT TNTE,NNTE 
13 2 


CONT 


En cas de ‘BOUCLAGE' de programme: 


Lorsqu'un programme ne s'arrête pas, ajouter l'instruction TRON en début de programme. 
On peut ainsi localiser la partie du programme où la boucle s'effectue. 
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LES SOUS PROGRAMMES : 
GOSUB/RETURN 


Il est fréquent qu’une même séquence d'instructions soit utilisée PLUSIEURS FOIS dans un 
programme. 


Un sous programme permet d’écrire UNE SEULE FOIS cette séquence qu’il suffit 
d’appeler de différents endroits du programme par GOSUB no d'instruction. 





10 A=30:B=10 


20 S=A+B 
30 P=A*%B 
50 PRINT A,B,'"'Somme:"";S;'"'Produit :"";P 


60 . 


79 . Même séquence 
d'instructions 

90 A=20:B=5 PA 

100 S=A+8 


1 P=A%*B 
120 PRINT A,B,'""Somme:";S;'""Produit:";P 
[| 130 . 





























20 GOSUB 500 provoque un branchement du programme en 500 (comme le ferait GOTO 
500) mais l’instruction RETURN (RETOUR) placée à la fin du sous-programme 
provoque un RETOUR AUTOMATIQUE après l'instruction qui suit GOSUB 500, 
c'est-à-dire l'instruction 30 sur l’exemple. 















Pour le 2° appel du sous-programme en 100, le retour se fait en 110 Denis 
par un 
A sous-programme 
10 A=30:8=10  j‘ appel __æ | 500 PRINT ‘'debut sous-programme 
20 GOSUB 500 — #|510 S=A+8 
30 . Leon 7 |520 P=At8 
40 . T 530 PRINT A,B,''Somme:'"">S;''Produit:"'; 
| 50 . > 540 PRINT ‘fin sous-programme 
D nues 60 . T 350 PRINT 
l'instruction Fa nn 560 RETURN == os a 
qui suit GOSUB 90 A=20:8=5 / Es rer 
100 GOSUB 500 TS 
110 END 
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A7 

debut sous-programme 

30 10 Somme:40 Produit :300 
fin sous-programme 


debut sous-programme 
20 5 Somme:25 Produit : 100 
fin sous-programme 


Un sous-programme peut lui-même en appeler un autre. 


Les adresses de retour (90 et 540 sur l'exemple) sont gérées par BASIC à l’aide d’une pile. 


50 500 ..... 1000 ..... 
60 510 ..... 1010 ..... 
70 

80 GOSUB 500 530 GoSuB 1000 1030 


90 540 ...... *+<— 1040 ..... 
100 550 se 1050 ..... 
110 560 RETURN 1060 RETURN 


540 


Pile des 
adresses 
de retour 


GOSUB / 


RETURN 


Les instructions sont exécutées dans l’ordre suivant : 


50 60 70 80 

500 510 520 530 

1000 1010 ....1050 1060 
540 550 560 

90 100 


Debut du 1er sous programme 
2eme sous-programme 

Fin du er sous programme 
Retour au programme principal 


N'essayez pas de sortir d’un sous-programme par GOTO), ni d’entrer dans un sous-programme 


par GOTO. 
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INTERLUDE 


Au sujet des organigrammes 


Faut-il utiliser des organigrammes ? 


Ce sujet est très controversé; certains en sont partisans, d’autres, au contraire ne les utilisent 
pas. 


Les partisans des organigrammes prétendent qu’une programmation doit être précédée d’un 
organigramme, qu’un programme seul ne peut être directement compréhensible. 


Ceux qui ne les utilisent pas prétendent qu'un programme bien structuré n’a pas besoin 
d’organigramme, qu’un organigramme trop développé devient vite confus. 

Nous pensons qu’il est important d'accorder beaucoup de soin à la présentation des 
programmes de façon à ce qu'ils puissent être compris avec le minimum d'efforts. 

Un organigramme ‘suit’ rarement un programme ; seul le programme reste. C’est pourquoi, 
un programme doit être documenté le plus possible. 
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DATA/READ/ 
RESTORE 


L’'instruction DATA permet de définir des données dans le programme lui-même. 
Celles-ci sont ensuite lues dans des variables par l'instruction ‘READ variable’ 


(LIRE variable). 
eo | Pointeur de DATA 


10 DATA 10,16,137 qudépors 














20 READ N1 Pointeur de DATA 

30 READ N2 après 2 READ exécutés 
40 READ N3 

50 READ N4 

60 REM -------- 


70 PRINT N1,N2,N3,N4 
80 PRINT ‘Moyenne :''; (N1+N2+N3+N4) /4 





RUN : 

FU Basic lit successivement 
les valeurs 

10 16 13 14 10, 16, 13, 14 dans 

Moyenne:13.33 N1, N2, N3, N4. 





‘READ N1' lit la 1“ donnée (10) dans NI. 

Le pointeur de DATA (géré par BASIC) progresse de 1. 

Ainsi ‘READ N2' lit la 2° donnée dans N2, etc... 

Sur l'exemple ci-dessus, nous avons supposé que le nombre de données à lire (4) était connu. 
Pour repérer la fin des données, plaçons 99. 


10 DATA 10,16,13,15,99 #— 


Pour indiquer 
la fin 

30 READ NTE des notes. 
40 IF NTE=99 THEN GOTO 100 

45 PRINT NTE, 

50 TNTE=TNTE+NTE 

60 NNTE=NNTE+1 

70 GOTO 30 

80 REM —-------———————————— 

100 PRINT ‘Moyenne :'"">TNTE/NNTE 


run 


10 16 13 15 18 Moyenne : 14.6 
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Les données peuvent être écrites sur plusieurs lignes : 


10 DATA 10,16,13 
20 DATA 15,18,99 


est équivalent à la ligne 10 du programme ci-dessus. 


Caractères spéciaux ; 


Les DATAS contenant des caractères spéciaux doivent être placés entre guille- 
mets. Sans la présence de quillemets, la virgule serait considérée comme séparateur. 


10 DATA ""12,Rue LAGAFFE" 


20 REM 

30 READ X$ 
40 PRINT X$ 
RUN 


12,Rue LAGAFFE 


Erreurs : 


OUT OF DATA : Si le nombre de READ exécutés est supérieur au nombre de données en 
DATA, le message OUT OF DATA apparaît. 


10 DATA 15,190 Il manque 
50 READ “14 


40 READ Z 


TYPE MISMATCH : Le type de la donnée lue doit s’accorder avec le type de la variable. 
10 DATA BELLANGER +" 


20 READ X 


RUN 
—ÿ" avec le type de la variable 


TYPE MISMATCH (type numérique) 


Il faut écrire : 20 READ X$ 


La donnée (type chaine) 
ne s'accorde pas 
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RESTORE : 


Positionne en début de DATA, ce qui permet de relire les données depuis le début. 


10 DATA 6,3,14 
20 : 

30 READ A 

40 READ B 

50 READ C 

60 : 

70 RESTORE 

80 : 

90 READ D,E,F 
100 : 

110 PRINT A,B,C 
120 PRINT D,E,F 
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Annuaire téléphonique : 


Un annuaire téléphonique est défini en DATAS. En fournissant un nom, on obtient le numéro 
de téléphone correspondant. 


10 REM ANU ANNUAIRE 

15 : 

30 DATA BISSON, kk44-22-11 

40 DATA BELLANGER, 555-33-22 

45 DATA CAMPAS, 7717-44-11 

50 DATA * 

60 REM——---- 
70 PRINT 

80 INPUT ‘Quel nom? "';NOM$ 


90 RESTORE :REM Positionnement en debut 
100 : 
110 READ N$:1F N$='"x" THEN PRINT ‘''N'existe pas":GO0OTO 70 
120 READ TPH$ 
130 IF N$=NOM$ THEN PRINT:PRINT N$,TPH$:GOTO 70 
140 GOTO 110 

L 


150 

160 " RUN. 

LIRE 

180 " Quel nom? CAMPAS > 
190 

200 ‘ CAMPAS 777-44-11 


Pour éviter d’entrer le nom en entier, lors d'une recherche, changer la ligne 130: 


130 IF NOM$=LEFTS(N$,LENCNOM$)) THEN PRINT N$,TPH$:GOTO 70 
RUN 
M 
Quel nom? BIS 
er 


BISSON 444-33-22 


Naturellement, si plusieurs noms commencent par ‘BIS’, nous obtenons le premier de la liste. 


La liste triée de l'annuaire s’obtiendrait en lisant les DATAS dans 2 tables qu'il faudrait ensuite 


trier. 


58 


ORIC POUR TOUS 


Pluriel des noms se terminant par ‘OU 


Nous savons que le pluriel des noms se terminant par ‘OU s'obtient en ajoutant ‘S’ au nom au 
singulier sauf pour CHOU, GENOU.... 


10 REM PLUR PLURIEL DE NOMS SE TERMINANT PAR ‘OU! 
30 DATA CHOU,GENOU,HIBOU,CAILLOU,BIJOU,JOUJOU, POU 

40 : 

50 PRINT 


60 INPUT ‘Donnez un nom se terminant par "OU" :'"':N$ 
70 IF RIGHT$(N$S,2)<>''OU'" THEN PRINT:PRINT "PAR OÙ ! ‘":GOTO 50 
80 : 

90 RESTORE 

100 : 

110 FOR L=1 TO 7 

120 READ X$ 

130 IF X$=N$ THEN TERM$="'X'"":GOTO 170 

140 NEXT L 

150 : 

160 TERM$=""S" 

170 PRINT ‘Le pluriel est:'';:N$+TERM$ 

180 GOTO 50 


run 


Donnez moi un nom se terminant par "OU' : VERROU 
Le pluriel est: VERROUS 


Donnez moi un nom se terminant par "'OU' : BIJOU 
Le pluriel est: BIJOUX 
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Budget familial : 


Dans chaque lig 


ne de DATAS sont définies, dans l’ordre, les dépenses d’un mois : loyer, 


alimentation, divers. Le programme lit les DATAS et édite le total des dépenses pour chaque 
mois ainsi que le cumul par type de dépense. 


10 
20 
25 
40 


REM-— BUDG BUDGET FAMILIAL 
. Lover Alimentation Fi 
DATA JANVIER, 2500, 3000, 1900 


50 DATA FEVRIER, 2500, 2000, 1500 

60 DATA MARS , 2500, 2200, 600 

70 DATA * 

80 REM —---““mmmmmmmmmmmmmmmmmmmmmmmmm 

90 TLOYER=0:TALIM=0:TDIV=0 

100 : 

110 LPRINT ,'"'LOYER'"',""ALIM'"', "DIVERS" 

120 : 

130 FOR MOIS=1 TO 12 

140 READ MOIS$:IF MOIS$="*x" THEN 230 

150 READ LOYER 

160 READ ALIM 

170 READ DIV 

180 TMOIS=LOYER+ALIM+DIV 

190 TLOYER=TLOYER+LOYER:TALIM=TALIM+ALIM:TDIV=TDIV+DIV 

200 LPRINT MOIS$,LOYER,ALIM,DIV,TMOIS 

210 NEXT MOIS 

m0 à 

230 LPRINT sur l'imprimante 

240 LPRINT Y TLOYER , TALIM, TDI Ve" 
LOYER ALIM DIVERS 

JANVIER 2500 3000 1000 6500 

FEVRIER 2500 2000 1500 6000 

MARS 2509 2200 600 5300 
7500 7200 3100 
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Devinez un mot : 


Ce programme choisi un mot parmi ceux définis en DATA 

Le jeu consiste à deviner ce mot. 

Le joueur propose des lettres et le programme lui indique en retour la ou les positions des 
lettres dans le mot cherché. 


Amélioration possible : 


Les mots sont proposés dans l'ordre où ils sont définis en DATA. 
Ils pourraient être choisis au hasard en faisant : 


25 N=5 :REM N:inombre de mots 

80 RESTORE 

82 X=RND(1)%N MOTS 
84 FOR I=1 TO X:READ MOTS:NEXT I :REM lecture de X mots 


86 READ MOTS Mfali[s[ofn 
10 REM DEVINE { | | 


30 DATA MAISON,SAPIN,BROUETTE ,CIDRE ,CASSETTE 
UO DATA * BPL( }) [ololo[ [ [1] 


. 0/1 0/1 
60 DIM BPL(15) :REM Table des lettres trouvees 1 si trouvé 


80 READ MOTS:IF MOT$="*#" THEN RESTORE:GOTO 80 

90 L=LEN(MOTS$) 

100 FOR P=1 TO 15:BPL(P)=O:NEXT P 

110 PRINT:PRINT "Vous devez trouver un mot de ";L;'"Lettres'":PRINT 


130 PRINT:INPUT "Donnez une lettre:'"';L$ 


150 FOR P=1 TO L :REM Recherche si lettre dans mot 
160 IF L$=MID$(MOT$,P,1) THEN FPL(P)=1 

170 NEXT P 

180 REM = Affichage resultat 
190 BPL=0 

200 FOR P=1 TO L 

210 IF BPL(P)=1 THEN PRINT MID$(MOT$,P,1); :BPL=BPL+1:GOTO 230 
220 PRINT "."'; 

230 NEXT P 

240 IF BPL<L THEN 130 

250 PRINT:PRINT "C'est bon! 


260 GOTO 70 

270 ‘ 

280 ! RUN - 

290 ! A 

300 ' Vous devez trouver un mot de 6 lettres 
310 ! 

320 ' Donnez une lettre: 7 
330 ' 

SUO sas 

350 

360 ' Donnez une lettre:M -7 
370 ‘ 

380." M.:S. 
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Questions/Réponses 


Ce prograinme pose une question, propose des solutions puis vérifie si la réponse est bonne. 








1C REM QRS QUESTIONS/REPONSES (avec solutions proposees) 
26 : Bonne 
30 : Question Réponses proposées réponse 

: mA pc Er R r 
50 DATA "Capitale de l'ESPAGNE? où "MADRID BRUXELLES MILAN", "MADRID" 
60 DATA "Date de MARIGNAN? M, "1515 1958: !, "1515" 
70 DATA * 
80 : 
90 READ Q$:IF Q$="*x" THEN STOP :REM lecture d'une question 
100 READ RP$ :REM reponses proposees 
110 READ BR$ :REM bonne reponse 
126 : 
130 PRINT:PRINT Q$;RP$ :REM Question/reponses possibies 
140 : 
150 INPUT "Votre Reponse? ";REP$:1F REP$="" THEN 150 
160 : 


170 IF REP$=BR$ THEN PRINT:PRINT "C'est bon'":GO0T0 90 
180 PRINT:PRINT "La reponse est:";BR$ 


190 GOTO 90 

200 

216 ! RUN 

220 ‘ 

230 ‘ Capitale de l'ESPAGNE? MADRID BRUXELLES MILAN? 
240 ' Votre reponse? MADRID 

250 #7 

260 ' C'est bon 
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LES TABLES 


Pour mémoriser 4 notes, nous pourrions utiliser 4 variables N1, N2, N3, N4 en faisant : 


10 INPUT ‘''Note1? "';N1 
20 INPUT ‘'Note2? '';N2 
30 INPUT ‘'Note3? '':N3 
40 INPUT ‘''Note4? '':N4 


16 


Eine 


Utilisons plutôt une ‘TABLE’ que nous appelons NTE( 


Les ‘éléments de cette table NTE() sont connus sous les noms de NTE(1) 
NTE(2) 

NTE(3) 

Table NTE( ) NTE(4) 







NTE()—æ| 12 | 
NTE(2—+>| 16 | 
NTE(3—>| 13 | 
NTE (4) —+ 


Nous pourrions faire comme ci-dessus : 


10 INPUT ‘Note 1'':NTE (1) 
20 INPUT ‘''Note2? '':NTE(2) 
30 INPUT "'Note3? '':NTE(3) 
40 INPUT ‘'Note4? ">NTE(4) 


Mais utilisons plutôt une ‘boucle FOR’; en faisant varier un ‘indice’, nous simplifions l'écriture 
du programme : 


FA La 1°" fois : 
x est équivalent à NTE (1) 
10 FOR N=1 TO 4 puisque N = 1 


4 fois O INPUT "Note? ‘"';NTE CN) 
30 NEXT N 
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Au départ, N est égal à 1. Par conséquent 


20 INPUT ‘Note? '':NTECN) est equivalent a 


20 INPUT ‘Note? ";NTE (1) 


C’est donc dans NTE(1) que la première note est introduite. 


12 ==> ! 12 ! NTEC1) 
! O ! NTE(2) 
! 9 ! NTE(3) 
1-0:.:! 


égal à 2. 


PRINT NTECT)+NTE (2)+NTE (3)+NTE (4) + 
52 Æ—| Total Frappez 
des notes noce 
É immédiat 
PRINT NTE(I),NTE (2) ,NTE (3) ,NTE (4) 


12 16 13 11 


Sans la boucle FOR, nous ferions : 


10 N=1 

20 : 

30 INPUT ‘Note? '':NTE(N) 
40 N=N+1 

50 IF N>5 THEN 100 

60 GOTO 30 

70 : 


100 STOP 
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Edition de la table NTE() : 


Editons la table NTE{() après l’avoir documentée. 


10 FOR N=1 TO #4 
20 INPUT ‘Note? ";NTECN) 


30 NEXT N 

40 REM —--------- Edition de La table NTE() 
50 PRINT 

60 PRINT "Liste des notes" 

70 PRINT 


80 FOR N=1 TO 4 
90 PRINT ‘"Note'"';N;NTE (N) 
100 NEXT N 


RUN 
Note? 12. 

Note? 16% 
Note? 13 
Note? => 


Liste des notes 


Note 1 12 
Note 2 16 
Note 3 13 
Note 4 11 


Dimensionnement des tables : DIM (nombre d'’élé- 


ments) 


Les tables de plus de 10 éléments doivent être ‘dimensionnées’, afin de réserver leur place en 


mémoire centrale. 
Les notes pourraient être définies dans une ligne DATA: 


10 DATA 12,16,13,11 


25 DIM NTE(4) 

30 FOR N=1 TO 4 :REM Lecture des DATAS 
40 READ NTE(N) 

50 NEXT N 

60 REM ==. Total et moyenne 

70 TNTE=0 

90 FOR N=1 TO 4 

100 TNTE=TNTE+NTE (N) 


110 NEXT N 

120 : 

130 PRINT ‘'Total/Moyenne:'"";TNTE,TNTE/4 
RUN 

Total/Moyenne: 52 13 
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Recherche de la meilleure note 


Nous supposons d’abord que la première note est la meilleure. Puis nous la comparons à la 


seconde. 
Si celle-ci est supérieure, elle devient la meilleure. Etc... 


MEIL 
NTE (1 
Le, a (au départ) 
NTE (2) 
NTE (4) 





10 DIM NTE(4) 

20 REM ——-----=--——-—_—— Introduction des notes 
30 FOR N=1 TO 4 

40 INPUT ‘Note? '':NTE(N) 

50 NEXT N 


60 REM —--------———__—…— Recherche de La meilleure note 


70 MEIL=NTE (1) 

80 FOR N=2 TO 4 

90 IF NTE(N)>MEIL THEN MEIL=NTE(N) 
100 NEXT N 

110 REM —--------—--———— 

120 PRINT ‘La meilleure note est:'"';MEIL 


RUN 


La meilleure note est: 16 


Ci-dessous, nous ne mémorisons pas la meilleure note mais sa POSITION dans ta table. 


NTE( }) ELVS( ) 


CAMPAS 


DEGREMONT 





12 
PMEILL 16 + 






13 
11 


10 DIM NTE(4) 

20 DIM ELV$(4) 

30 REM —-------- 
4&O FOR N=1 TO 4 

50 INPUT ‘Note? "';NTE (N) 

60 INPUT "Eleve?"";ELVS$ (N) 

70 NEXT N 

80 REM —----------— 
90 PMEIL=1 

100 FOR N=2 TO 4 

110 IF NTECN)>NTE(PMEIL) THEN PMEIL=N 
120 NEXT N 
130 REM== TES Eee eme em en msssnnsse—s 
140 PRINT "Meilleure note:";NTE(PMEIL) ,ELVS$ (PMEIL) 
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RUN 
rs 


Note? 12- 
Eleve? CAMPAS 
Note? 16—7 F 


Meilleure note: 16 DEGREMONT 


PRINT PHEIL— 


2 


Remarque : Les ‘traitements que nous avons effectué (total, moyenne, recherche de la 
meilleure note) ne nécessitaient pas de table. Mais des traitements plus complexes tels que le tri 
par exemple rendent nécessaires l’utilisation de tables. 


Tri des notes : 


Trions les notes contenues dans la table NTE(). 

Nous comparons d’abord le 2° élément de la table au 1‘: 

e S'il est plus grand, nous les laissons dans l’ordre. 

e S'il est plus petit, nous les inversons afin qu'ils soient dans l’ordre. 


239 IF NTE(I+1)<NTE(I) THEN X=NTECI):NTECID=NTE (I#1):NTE(I+1)=X: IV=1 


SI NTECI+!)<NTE(I) ALORS inversion de NTE(I+1) et de NTE (I) 


L'inversion de NTE{(I) et de NTE(I+1)se faiten utilisant une variable intermédiaire (X) : 


—\ 


NTE (2) : intermédiaire 


— 


Ensuite, nous comparons de la même façon le troisième élément au second (en faisant 
progresser l'indice I de 1) et nous les inversons s'ils ne sont pas dans l’ordre. Etc... 


Après avoir comparé tous les éléments adjacents de la table, le plus grand des éléments de la 
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table est ‘monté’ en fin de table. (Remarquez qu'il n’y a que N-1 comparaisons pour N 
éléments). Mais le tri n’est pas nécessairement achevé. 


Pour le savoir, il suffit de tester le témoin d’inversion IV. S'il n’y a pas d’inversion au cours de 
l'exploration de la table, c'est que NTE(1) < NTE(2)< NTE(3) < NTE(4). Par conséquent, les 
éléments sont dans l’ordre. 


En revanche, s’il y a eu inversion, nous explorons à nouveau la table. A l'issue de la seconde 


exploration, le plus grand des N-1 éléments est arrivé en avant-dernière position. N 
explorations au maximum sont nécessaires pour trier la table. 


table NTE( ) 






DEBUT 





Après le 1° Après le 2° 
passage passage 

le plus grand 

est remonté 

en fin de table 


OUI 






<NTE (I + 1) - 


NTE (1+ 1 

1 1 
NTE (1) 
V1 












FIN 
DE 
TABLE ? 








INVERSION ? 





OUI 


40 FOR I=1 TO 4 
50 INPUT ‘Note? ‘"';NTECT) 


70 NEXT I 

COÛ REM === Tri des notes === 
205 : 

210 1V=0 :REM Temoin d'inversion 


220 FOR 1=1 TO 4-1 
230 IF NTECI+1)<NTECI) THEN X=NTECI):NTECID=NTECI#1):NTEC1+1)=X: IV=1 


240 NEXT I 

250 IF IV=1 THEN 210 :REM Y a t'il eu inversion? 

255 : 

LOU:REM== Semen Edition des notes triees ===... 


270 FOR I=1 TO 4 
280 PRINT NTE(I) 
290 NEXT 1 
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RUN 


Note? 15 
Note? 13 
Note? 11 
Note? 12 


11 
12 
13 
15 


Pour mieux ‘suivre’ l’évolution du tri, vous pouvez insérer : 
245 FOR K=1 TO 4:PRINT NTECK):NEXT K:PRINT 
Après chaque exploration de table, nous éditons son contenu. 


RUN 





1° passage : 
13 le plus grand 
est monté en 


11 

12 fin de table 
TH 

11 

Hila— 

15 


Pour obtenir la liste des notes dans l’ordre croissant accompagnée de la liste des noms, il suffit 
d’inverser dans la table ELV$() à chaque fois que nous inversons dans NTE(). 


4G FOR I=1 TO 4 

59 : INPUT "Hote ";:HTECI) 

65 :IHPUT "Hom eleve ";ELYSC I 
Fg HEAT I 


229 FOR I=1 TO 4-1 

234 :IF HTESI+12=2NTEC I THEH 249 

233 : A=NTE(IOD:NTES I Y=NTEC I+1 1: HTEL +1 3=4 

237 :AB=EL VS I): ELVSC I 2=ELVS$C I+1 2: EL SC I+1 =: Ie] 
24@ HEXT I 

256 IF IV=1 THEH 218 

260 REMS SR Ssrenesenesnnssemeniss Edition ---------- 
279 FÜR I=1 TO 4 

284 :PRIHT HTESI2,ELY# 15 

294 MEXT I 


RUN NTE( ) ELV$ ( ) 


11 BISSON 
12  CAMPAS 
13 BELLANGER 
16 DEGREMONT 
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Pour obtenir la liste trié dans l’ordre croissant des noms, il suffit de faire : 


230 IF ELVS(I+1)<ELV$CI) THEN cou 


Etablissement d’une facture : 
En DATAS, sont définis des produits (référence, désignation et prix) 


Les produits facturés sont stockés dans 4 tables REF$(), DESG$(), PRIX() et QT(). Lorsque 
tous les produits sont saisis, nous éditons la facture. 


REF$( ) DESG$( ) PRIX( ) QT() 
ST 
Exécution : 


Nom client? DUPONT 
Adresse? 15 rue xxXXXXXXXXXX 





Produit (F pour fin)? PR1 
Quantite? 5) 
Produit (F pour fin)? PR3 
Quantite? 2 
Produit (F pour fin)? F 


Etablissements xxx 


Facture de: DUPONT xxxxx 
15 rue xxxxxxxxX 


PRI TABLE xxxxxx 1400 3 4200 
PR3 CHAISE xxxxx 650 2 1500 
Total: 5500 
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ren 
Det] 


FE FT FACTURE 


_ 
Lu] 


Lt Pi 


D © #5 7 
Rs PL ds à 
D in 


Prise des FOURS me 





OT 


C'ATÉ 
DATE 
DATA 
DATA 
RE mn me 
THEUT T et 

LHFLIF "Adrs 


+ "FAUTEUIL 
















nt "HOME 
DESIRE 





EN Hhs nb de 





IHPUT MBeference Produit CF pour Fine "if 
IF Fa" F" THEN 
LHFUIT  MGiaontai te UT 





UE 


3 
=, 
xx 


RESTURE MEM Positionnement début DATA 







D LR D Lt 
nt tu 


z, 
RAR AE LA ENT 


READ ie IF REFHe "CE" THEN PRINT MHexiste Pas" GOT 156 


ni 





GTCHL 3=ûT 


G OT 15 
RE ff a FE À de À A CL prono 
LFETHT 

LFRIMT "Etalli 
LFRIHT OT 
LFRIMT TA 


D SR CD DE 


PiLPFRINT 
ve des" TAB 13+ 4 1 MOTS 






EST ELX | 





INT TREC 
INT TAEC 
INT TRES 
Te TT L'ÆPR IE L 
468 HEUT L 
474 LPRIHT 
488 LPRINT TAB 1344055 "Taba le "3 TAB 15450 T 
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Composez votre menu : 


Vous avez le choix entre 3 hors-d’œuvres, 3 plats et 3 desserts. Vous ne disposez que de 60 f. 
Toutes les combinaisons de hors-d’'œuvres, de plats et de desserts sont calculées. Seules sont 
retenues celles dont les montants sont inférieurs ou égaux à 60. 


Pour afficher les noms des hors-d’œuvres, plats et desserts, il faudrait les définir en DATA et les 
lire dans 3 tables (comme pour les prix). 


10 REM RESTA 





20 : 

30 BUDG=60 :REM Somme disponible 

u4O : 

50 DATA 8,10,12 

60 DATA 35,40,45 PH() PP() PD() 
O DATA 12,15,20 

20 : | [8 E 
90 FOR H=1 TO 3:READ PH(H):NEXT H 
100 FOR P=1 TO 3:READ PP(P):NEXT P 
110 FOR D=1 TO 3:READ PD(D):NEXT D 

120 : Prix Prix Prix 
130 FOR H=1 TO 3 hors d'œuvres plats desserts 


140 FOR P=1 TO 3 
150 FOR D=1 TO 3 


160 T=PH(H)+PP(P)+PD(D) 

170 IF T>BUDG THEN 190 

180 LPRINT "Hors d'oeuvre:'";:H;'"Plat:";:P;'"Dessert:";D;" Total:";T 
190 NEXT D 

200 NEXT P 

210 NEXT H 

Hors d'oeuvre: 1 Plat: 1 Dessert: 1 Total: 55 
Hors d'oeuvre: 1 Plat: 1 Dessert: 2 Total: 58 
Hors d'oeuvre: 1 Plat: 2 Dessert: 1 Total: 60 
Hors d'oeuvre: 2 Plat: 1 Dessert: 1 Total: 57 
Hors d'oeuvre: 2 Plat: 1 Dessert: 2 Total: 60 
Hors d'oeuvre: 3 Plat: 1 Dessert: 1 Total: 59 
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Table à 2 dimensions : 


Les tables peuvent avoir plusieurs dimensions (jusqu’à 255). 


Soit un ensemble de notes définies en DATA. Nous voulons les éditer. Nous pourrions lire les 
DATAS et les éditer au fur et à mesure (voir chapitre sur les DATA). 


L'utilisation d’une table à 2 dimensions permet d’effectuer d’autres traitements (comme le tri 
par exemple). Chaque ligne représente les notes d’un élève. 


ELVS( NTE (.) 


BELLANGER 
BISSON 
CAMPAS 


Pour obtenir la liste des élèves et de leurs notes dans l’ordre décroissant des moyennes, nous 
utilisons une table: intermédiaire (PT). 

Cette table PT{) ‘pointe’ vers la table des notes NTE{,). Le tri se fait sur la table MY() (en 
inversant les éléments de PT() à chaque fois que nous inversons 2 éléments de MY{) ). 
Sans cette table PT(), il faudrait inverser les notes de la table NTEI(,), ce qui serait fastidieux. 











Avant tri 





ELV$ 
BELLANGER 
BISSON 










Après tri 





Les 2 tables 
triées 
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REM TH AHALYSE CE HOTES 


CATA BELLAHGER, 12,14,12,93 
CATA ÉISSOH, 13:12:15.:93 
DATA CAMPAS. 16.14,16,35 
DATA # 
REMFSRSS STRESS NS RSR sas Lecture des DATAS -- 
CIM EL SE 5, re 300. PTE GA 


DIM: HTECSG. 14 


186 : 


114 
12a 
139 
144 
155 
166 
17f 
154 
199 
AE) 
219 

24 
220 


248 : 


299 
26ÿ 
27 

£8ÿ 
296 
SGA 
319 
324 
336 
34@ 
359 
364 
27 

386 
334 
465 
414 
424 
436 
445 
459 
455 
457 
+64 
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FOR Ez1 TO 36 DA eleves maxi 
:REAC “$:IF HS=UEU THEN HE:E-1:GOTO 184 
ELY$CE ex 
: FÜR H=i TO 14 14 notes max Par eleve 
FEAD “:IF #=39 THEH 194 
HTESE ,Hizi 
HEATH 
HEXT E 
RENM--- ne Editions de ELWC 5 gt MTEL, ù —— 
FOR Ez1i TO ME 
:LPFRIHT ELYS#E 0; TAB ZE à 
:FOR Hei TO 18 
IF HTECE,Hiï=4 THEH 274 
LFRIHT TAECZS+H#S SG HTESE. Hi: 
:MEXT H 
LFRIHT 
HEAT E 
RENM--- Calcul des monennes dans ME 
LPEIHT:LPRIHT "Mosennes":LPRIHT 
FOF Ezi T0 HE 
: TH=G 
FOR He TO 16 
IF HTESE.Hï=6 THEM HN=H-1: GOT 374 
THETH+HTECE Hi 
:HEXT H 
:MYCE = TH HH 
LPRINT "Mou:"iELVYSCE 33 TAES 34: MYCE 
HEXT E 
FEM=sssessssesszeszsz Edition dans l'ordre des mosenngs =22= 
FOR Izi TO SG:PTCIY=I:MEXT 
REM-—- mm Tri 
1Y=6 
FOR I=1 TO HE-1 


IF MSC I41 té eMYC Is THEH 468 

AE I ME TMC T4 1 MC I +1 = 
BePTÉI PTE EPTOI+I D): PTCI+1)=4: IVe] 
HEXT I 
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478 


489 RE 


485 


IF IY=1 THEH 439 
M mm mms Edition 
LPRIHT:LFRINT "Liste dans l'ordre des mosennes ":LPRIHT 


496 FOR Ezi TO HE 

59G :LPRINT ELYSCPTCE 2): TABC25 1; 
518 :FOR Hzi TO 19 

S2G : IF HTEXPTCE),H)=9 THEN 548 
539 : LFRINT TABC25+3#H); NTECPTCE 2, Ho; 
549 :HEXT H 

554 :LPRIHT TAB 495; MYCE 

569 HEAT E 

ÉELLANGER LE 14 1€ 

BISSON 13 12 15 

CAMFAS 16 14 16 

Mogennes 

Moy : BELLANGER 12, 666666 

Moy : BTSSUM 13,5333333 

Mers : CAMPAS 14 


Liste dans l'ordre des mogennes 


CAMPFAS 16 14 16 
BISSOM 13 18 15 
BELLANGER 1E 14 18 
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Elections 


Plusieurs bureaux de vote sont gérés. Les résultats pour chaque candidat et chaque bureau de 
vote sont stockés dans une table VX(,) à 2 dimensions. 


BUR 1 BUR 2 


CANDS( ) ' Ÿ 


DUPONT 
MARTIN 
DURAND 


Un premier mode (CAND) permet de définir les noms des candidats et de documenter la table 
CAND$(). 


BUR 3 
Ÿ 







Choi x? CAND—> 





Nom candidat? (F pour fin) DUPONT 
Nom candidat? (F pour fin) MARTI 
Nom candidat? (CF pour fin) DURAND 
Nom candidat? (F pour fin) EE 








Un second mode (VBUR) permet de documenter la table VX(,) pour un bureau de vote (1, 
2,...). Sur l'exemple, il n’y a pas cumul au fur et à mesure du dépouillement; il faut entrer le 
nombre de voix total pour un bureau de vote. L'ancienne valeur peut cependant être modifiée. 


Choix? VSBUR 
Eu L 


21 CANDS$( ) 
Bureau? Le 


DUPONT 
MARTIN 
DURAND 


Un troisième mode affiche les résultats (RESUL) : total des voix pour chaque candidat ainsi que 
le pourcentage. 







DUPONT? 10- 
MARTIN? 8 2 
DURAND? 20 - 





Pour effectuer le cumul par bureau de vote, au fur et à mesure du dépouillement, 2 solutions 
sont possibles : 


e Avec la même table à 2 dimensions VX(,), ajouter les voix au fur et à mesure. 


e Définir la table VX avec 3 dimensions et y consigner tous les dépouillements intermédiaires. 
Cette solution est plus ‘sûre’ puisqu'elle permet d’avoir la trace de tous les dépouillements. 


VX (..) 


CANDS( ) 


DUPONT 
MARTIN 
DURAND 







— Le D Tu Y Dépouillement 2 


\ “—__ Dépouillement 1 
BUR 1 BUR 2 
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Pour obtenir la liste des résultats dans l’ordre des voix obtenues par les candidats, nous 
pourrions créer une table TV{() et la trier. 


MARTIN 
DURAND 





LE 


CNDS$( } VX (,) TV() 
DUPONT 





Cumul dans table TWé 


MNT 





—i 
pas | 
+: 


gt CHOC à 


1V=f 

FOR Izi TO HC-1 
IF TWO I+i ue 
LT TE TUE 
HEXT I 

IF IWel THEH F4 






li THEH F3 
Te [+1 AT T4 CEA 


£Ridlir nm 
RARE E SR EN E LA] 


I IN I 4 


Edition de TUE M et CHE 


TA HO 


DOTME LC, COhe D 





&4  CUFOHE 
44. DURAHC 
Er MAETIH 
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LE EM EL 











EH CHE: 1 are 


“LAND, MBURE, FESUL 40" CH 


Ci THEH PRINT: 
THEH CH 









ss che amdidats" 


:[HPUT MGuel En 






FOR Lel TI HEC 


COS: IF KoG THEN FRINT SPCCH 5: 
VIF Meÿ THEN 15 


RETURH 
A 
T=f 

FÜR Cel TI HO 
M FOR Bel TO Gi TeTebee D BU HET E 
HET 







494 LPRIHT:LPEINT MRéesulkate":LPFETHT 
HA FÜR ei TO NC 
: INT CHEe Los TAB LS 18 3 


“4 THEN LPRIHT TAB Le LEE 1 Ms CE 


ef TA à 
ni TRS TETE 
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Conjugaisons 


Ce programme conjugue les verbes du 1‘ groupe au présent. 


1C REM CONJ CONJUGAISON 
2U : 

30 DATA JE,TU,IL,NOUS, VOUS, ILS 

40 DATA E,ES,E,ONS,EZ,ENT 

SC REM == Lecture des DATAS 
6C FOR T=1 TO 6 

70 READ.PR$(T) 

80 NEXT T 

JC : 

106 FOR T=1 T0 6 

110 READ TERM$(T) 





120 NEXT T 

130 : 6 VERBS 

140 INPUT "Quel verbe? (ler groupe) ";VERB 7 

156 L2LEN(VERBS$) [chan 177 
160 VERB$=LEFT$(VERBS$,L-2) 

176 : 


186 FOR I=1 10 6 
190 PRINT PR$(T);" "; 
200 PRINT VERB$;TERMÉ(T) 


210 NEXT T 

22C PRINT 

236 GOTO 140 

246 ‘ 

250 ' run 

260 ‘ 

28C ' Quel verbe? (ler groupe) CROMRER 
296 ‘ 

300 ‘ JE CHANTE 
316 ‘ TU CHANTES 
320 ' IL CHANTE 
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LES ÉDITIONS : 


Nous présentons sommairement les cas d'édition les plus courants. 


PRINT variable 


PRINT suivi d’une variable ou d’une constante provoque l'édition de celle-ci puis d’un saut de 
ligne et d’un retour en début de ligne. 
PRINT seul provoque un saut de ligne 


2 Début 
10 PRINT ‘"'DERUT" Saut Fin 


20 PRINT Hegse 
30 PRINT "FIN" 





PRINT variable : 


Le ; (point virgule) empêche le saut de ligne. 


10 PRINT "DEBUT"'; sd 
20 PRINT "SUITE ET FIN" |! 


saut de ligne 





PRINT variable , 


La , (virgule) permet de cadrer les valeurs imprimées de façon standard en colonnes 1, 16, 


Coll  Collé Col31 


20 PRINT X,Y, 


10 x=1C:Y=15:2=5 
z 
30 PRINT X, ,2 


PRINT TAB (position) 


Place la tête d'impression (ou le curseur) dans la colonne spécifiée de la ligne courante, 
permettant ainsi les cadrages. 
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4 

10 INPUT "Votre nom? '';MOMS UPCNT 
20 : DUPONT 
ZC FOR A=0 TO é.28xz STFP 6.28/20 DUPCRT 
4Q X=20+SIN(A) #10 (#20 > DUPONT 
50 PRINT TAB (X);NCMS DUPONT 
60 NEXT A DUPONT 

DUPONT 

DUPOr 








| __22P9 ST = 


Dessin d’un triangle plein : 


10 FOR L=1 TO 9 STEP 2 


80 PRINT TAB(2C-L/2); Fo 
3C FOR E=1 TO L KR KX HRK 
40 PRINT ‘'*#''s dk ke 
5C HMEXT E ÉTITE LS. 
60 PRINT 
70 NEXT L 
RUN 

ATTENTION: 


© L PRINT TAB ( ) ne fonctionne pas correctement (pour l'instant). 


LPRTHT TARBES LEE ds sise 


affiche xxx en colonne 5. Par conséquent, il faut ajouter 13 aux instructions L PRINT TAB ( ). 


e PRINT TAB ( ) ne fonctionne pas correctement. 
Pour afficher ‘‘Jean’’ en colonne 20, il faut faire: 


14 HOMS="OLUPONT"SPES&e "JEAN" 
EG FRIHT HMS: SPC SE-LENS HOMS 2033: FRS% 


© Pour éviter la perte de caractères lors d’une édition, faire: 


ee": CALL HECCT 





14 CALL #EDAI:LPRINT ini 


© Pour lister un programme, 


ajouter: 
ë& CALL #EDA1:LLIET 14 
18 PROGRAMME 4 LISTER 
puis faire: 
FUH 
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Histogrammes 


14 FEM HOT HTLETOGEAMME 








EmÉrime un Mist 
La taille de: 


a p 
RTS EH dés Mentes 


EE 








rues EPS morte dé Produits 


, PRODS: 1, PRODA, 46 









ci FOR. 11 j 
GA :REAC HIST#E T0 


dr LE ' HISTS( ) 


PROD 1 
PROD 2 






cm om [Et LU em on 






ñ FÜR 1= 1 TÜ H 
TeTT+HIETE 1 2 





memes fi tin 





LÉRIHT 
LPRINT Men. 
FOR Tel TO H 
LFRTMT OMIS TAEC LS 5 MISTE I 3 TAC LES 6 MISTEC I 3 TAB LS IE 
LPRIMT ME IHTÉCHISTE I 0 TTELEE + 
:LFRIHT THE 15417 

FOR ei TO MISTÉ I 'HECH-r 

IF HISTIISEECHe 1 1 THEN ESA 
LFRIHT "I 1 
HET K 

‘ : : L F F: I H T Ann do non DS a D st LEE ne 20e 1 Ga ai re Ga 

344 HET I 

















26 PERD 
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4 
mi 


REM HIESTOGRAMME 












re 
EX ELA 


FE Répartition Far classes d'ade 
DATA 45, 


CATA | 
C'ATH LEE 





Ci O0 JT 
D Gi 


nt 
EX 


_READ AGE: IF AGESSSS THEM 134 


20-24 ans 
25-29 ans 
ge" THEH HE CL Hé CL te 
SNFROTHEN FE CL 2ePi CL +1 





- Echéglle 


TU & 

ji TE HE CL 94F6 ÊL 35% THEH MésHi CLÉ CL 5 
ME%T CL 

EC He 1 A. pts 


RE Mae a a À À À nou 
& LFÉTHT 

HO LFRINT "Age" TAC 141 Eneemb le" TAB LISE à 
3 LPRIHT CHonnes "à TAB HS 1 Fermes" LPRTIHT 









PRINT PUS Clef aitu, 
LPEINT SHELL 1 à 
LPRINT Hi CL 46 CL 33 TAB 13412 04 








4 HE: s: CL 
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Age Ensemble Hommes Femmes 


20::2.,24 2 HRNAAE HHH FFF 
29:=.29 1: ### FFF 

320 - 34 3 xxx HHHHHH FFF 

35 - 39 2 #####% HHH FFF 

4G - 44 1 *** HHH 

45 - 49 0 

50 - 54 0 

59e 59: 3: AAAENANENE HHH FFFFFF 


Systèmes de numération : 


Pour représenter le nombre 234, nous pourrions ‘dessiner’ 234 bâtons. Mais il est plus simple 
de dire que nous avons: 


4 unités 


3 dizaines (3 paquets de 10 bâtons) 
2 centaines (2 paquets de 100 bâtons) 


M qe LUE 
2 3 + 


2100 + 3x19 + 4x1 


10 représente la ‘base’. Nous pouvons tout aussi bien utiliser une base 8 : 


3 5 2 
Y + 
3*x64 + 5x8 + 2x1 —-> 234 en decimal 


D'une façon générale, un nombre N en base B s'exprime ainsi: 


N=anxB” +an-1+8" +..... + a1*8! + 2092 


1101 en base 2 est égal à: 


142 +1427+ On 2! 4x 20 => 1xs+1xh+Ox2+1 --> 13 
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10 REM convd Conversion base B --> Decimal 
20 : 


à INPUT "Base? ";B N 


fl " 9 !. 
: NEUT Nombre? "';N este def 


70 : 

80 FOR P=0 TO 6 

90 Q=INT (N/10) :REM Quotient 
100 R=N-(Q%10) :REM Reste: donne le coefficient de rang p 
110 : 

120 ND=ND+(B"P)xR 

139 N=Q 

140 NEXT P 

150 : 

160 PRINT ND 

170 GOTO 59 


division par 10 


RUN. 
9 

Base? Le 

Nombre? 101=; 


5 


Nombre? 110 


6 


Conversion décimal en base B : 


Exprimons un nombre N sous une autre forme. 


À 
N=anx8" +an-14xB"" +....+a0xB° = |(anxB)+an-1)4B+...+a2)*B+a1)*B+a0, 
Quotient Reste 





En divisant N par B, nous obtenons un quotient Q = (anxB) + an — 1)+B +...+ a2)+B + al) 
et un reste égal à a0. 

En divisant le quotient par B, nous obtenons un reste égal à al 

Ainsi les restes des divisions successives par la base B donnent les coefficients a0, al.,.., an 


Exemple : 
Convertissons 13 (décimal) en base 2 
13 12 
0 —»1 6 !2 
a —> 0 3 !2 
D mme 1 91 (UE 
QG» 1 O0 


1" solution : 

Appliquons directement la méthode ci-dessus. Les coefficients étant obtenus dans l’ordre 
inverse de l'affichage, nous ne pouvons les éditer au fur et à mesure du calcul. Nous les 
stockons dans AF. 
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10 REM CONVR Conversion Decimal --> Ease P ; 
20 : CT] 
30 INPUT "Base? ";P RY D 
0 : Mans, 
50 INPUT ‘Nombre? ‘5h 

60 : Al 


70 AF=0:D=1 :REM affichace resultet- Decalane 
80 : 

9G Q=INT(N/E) :REM Guotient 
100 R=N-(0%xB) :REM Reste 
110 : 

120 AF=RxD+AF 

130 D=Dx10 

140 : 

150 1=Q 

160 IF Q>C THEN 90 

170 : 

180 PRINT AF 

19Q GCTO 50 


RUN 

Base? 2 
Mombre? 5 
101 


Korbre? € 


2° solution : 
Nous commençons par calculer les coefficients de rang le plus élevé. Manuellement, cette 
méthode serait plus longue. 


INPUT "ERSE "35 
INPUT Hombre "3 


FÜR P=ëé T0 4 STEF-1 
1 E 


F2 





oO GeINTE He +, GE 
Gt HeH-##[t 
G : PRINT El: 





pepe LÉ CO SU CA £a D 
Pie DS Gt Mit 


2 
[= 
zZ 


Base? 2 
Nombre? 5 


000101 


86 | oRIC POUR TOUS 


Hexadécimal : 


Pour la conversion en base 16, il faut définir des symboles pour 10, 11, 12, … 15. 
Choisissons À pour 10, B pour 11, … 
Pourquoi l’hexadécimal est-il utilisé en informatique ? 


Il permet de représenter de façon plus concise les nombres binaires ; en effet, à chaque chiffre 
hexadécimal, il correspond 4 chiffres binaires : 


C 3 A 


14 A$=-"Y123456789ABCDEF" ' ' ' 


118 PRINT MID$(A$,Q+1, 1); Duo [ oo [100 | 


Nous pourrions également faire : 


5 DIM 5$(16) 

18 DATA 0,1,2...A,B,C,0,E,F 

28 FOR 1-1 TO 16 : READ. S$(I):NEXTI 
119 PRINT 5$(Q+1); 
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ADRESSAGE DIRECT 
ECRAN 


PLOT X,Y,«Message » 


L’adressage direct écran permet d’afficher un message à un endroit bien précis de 
l’écran (sans affecter le reste de l'écran). 






10 CLS 
28 PLOT 5,1@,'""MESSAGE" 


| 10 


MESSAGE 


Enseigne lumineuse : 


Ce programme fait défiler un libellé sur l'écran. La vitesse de défilement dépend de la 
temporisation choisie. 


3 EN EMHSETGHE 





ass 


CLS 
LH="ECITIONS CU P,5.71,..,.,,,,., É 


png 
min 


FLOT 5.16,L%# See 
HAIT 26 PSI. ÉDITIONS 
LeLEHE LS LéeRTCNHTS L#, 1 LEFTECLE, Li deal 

GOT SA 


RE SIO ES 
HU 
ii 


CE 
mi 
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Tir sur cible 


Une cible traverse l'écran de gauche à droite. La frappe d’une touche quelconque provoque un 
tir du bas de l’écran vers le haut. 


X 


TIR (XT, YT) 





En appuyant sur ‘G’ ou sur ‘D’, la trajectoire du tir est à —45 ou +45 degrés. Plusieurs tirs sont 


possibles. 


224 


264 
erg 
289 


EM TIR SUR CIELE 


CLS :DF=8 
VC=1:XC=8: Ces: PLOT KO, YO KEE" 
MT=24 YT=20 Te: PLOT HT NT" 


AB=KETS IF #$ ="! THEN 124 :REM Attente depart tir 
DF=1:A=f ‘RENM Angle tir mal 
IF #$="G" THEH Az, 25 


IF X$="D" THEN A=.2 

IF YT<YC THEN XT=2@:YT=15: Te: PLOT HT NT, "x" 

RE ee Avance Cible eee 
FLOT XC-1,%C," " :REM Eff ancienne cible 


#C=HC4+YC 

PLOT #C-1:%C,UÆXE" 

REM SR Erpesneessessese HAVaNCR TIR ESS ene 
IF CP=ÿ THEH 234 


PLOT &T,YT," " 


IF YT£YC THEH 234 

NTENTENT ETS T+A : PLOT AT. YT, "4" 

IF #C=336 THEH PLOT 1,2@,'"PERDU":HAIT 394:G0TO 34 
IF YT=YC AND XT=2XC-1 AND XT<=xC+1 THEN EXPLOLE : END 
WAIT 5 

GOTO 78 
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SAISIE D'UN CARACTÈRE 
AU CLAVIER 


L’instruction INPUT ne permet pas au programme de vérifier la frappe des caractères au fur et 
à mesure de leur frappe mais seulement après que l'opérateur les ait validé par la touche 
<RETURN> ou <ENTER3>. 


L’instruction KEY$ le permet. 


KEY$ 


Lit le CLAVIER EN PERMANENCE. Si aucun caractère n’a été frappé, la chaîne lue (C$ 
sur l'exemple) est vide. Le caractère frappé au clavier n’est affiché que si le programme l’a 
prévu (et non pas en ‘local’ par le clavier comme c’est le cas avec INPUT). 


Test chaine vide 











15 CLS ‘ Efface l'ecran 
26 CHh=KETS:IF Cé="" THEN ZA  ‘ Boucle d'attente 
(28 PRINT C:; 
49" GOTO 24 RC 
RUN . caractères sont | 
affichés par l'instruction 30 
AVERT Ye" 
Le programme ci-dessous affiche le caractère dont le code est celui du caractère frappé plus 1. 
14 CLS “ Efface l'ecran 


36 PRINT CHAgé HEC CS 141 5; 
46 GOÜTO 24 


RUN Vous avez frappé 
AVERTY 
BWFSUZ 


Celui-ci n'affiche que les caractères compris entre «A» et «L». 


té Cé=KEYS: IF Cé="" THEN 29 ‘ Boucle d'attente 


18 CLS " Efface l'ecran 
24 CH=KE S:IF Cé="" THEH 26  * Boucle d'attente 
É IF Ci" OR Cé:"L" THEH 2H 

44 PRINT CS; 

SA GOTO 24 
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Boucle d'attente 


Attend que l'opérateur appuie sur une touche quelconque. 


ABsEE TS: IF He" THEN 16 ‘ Boucle d'attente 
3 PRINT "C'EST FHRTI" 


Rire 
ERA 


A PRINT 'héepondez De'H Luite ns " 
à Heû 








4 RésEE TS: IF Rge"O" THEH 165 

fs HEH4+L IF He16664 THEH FEIHT "Trof tard':STOr 
SA GÜTO dE 

FA : 

184 FEM suite 


GET caractère 
Lit un caractère au clavier dès sa frappe. 


Celui-ci doit être affiché par le programme. 


Affiche le 
19 GET C$ #7 | caractere frappé 
f20 PRINT asctcs);cs; EE 


30 1F C$='""F" THEN 199 
49 GOTO 10 

50 : 

100 END 


RUN Code de B 
66 B sur — RETURN - 
67 C {code ASC IT 13) 
13 


70 F 


Vous avez appuyé 





En voici un second exemple : acquisition de nombres. 


Ce programme n'accepte que la frappe de chiffres. Si, par exemple, l'opérateur frappe une 
lettre, celle-ci n’est pas affichée et la sonnerie est activée. 

Les caractères validés sont concaténés dans une chaîne L$. 

Dès que l’opérateur appuie sur <RETURN> (code 13), le programme s'arrête. 


ATTENTION : le programme présenté ne ‘gère’ pas le caractère d'annulation ‘(Code 127 
Celui-ci est concaténé à la chaîne L$ comme les autres caractères. 
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10 L$="" 


20 GET C$ 


30 1F X$<''0'"" OR C$>'"'9'"" THEN PRINT CHR$(7);:GOTO 20 
4O IF ASC(C$)=13 THEN 109 :REM retour chariot? 


50 PRINT C$; 
60 L$=L$+C5 
70 GOTO 29 


190 PRINT L$ 
110 PRINT VAL(LS$) 


RUN 
PRINT LS 
314 
314 
He PRINT VAL (ES) 
314 


Saisie d’une ligne avec GET. 


14 FENM SAISIE C'UHE LIGNE AVEC GET 
4 : 

#5 CLS 

34 LIG$="" 

46 : 

24 GET C$ 






154 LIGSELICS+CS$ 
148 PRINT CS; 
128 GOTO SA 

164 : 

244 PRINT LIGS 


Test clavier avec PEEK (# 208) : 
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{droite 


SA CEHSC CS 1: LeLEH(LIGS ) 

Fa IF THEH FRINT:G0TO 249 

4 IF Cis12r THEH 128 :REM 12F=DEL 

35 : 

184 IF L:4 THEH LIGS=LEFT#&LIGS,L-121:FRIMT CHRSE1ET 5 
53 

114 : 

124 IF C3 THEM FIHNG:GOTO 54 


r Plus rapide 


L$ CS 
GDJ'El 


:GÜTO S4 ELSE 


LES NOMBRES ALÉATOIRES : 


Les nombres aléatoires sont essentiellement utilisés pour les programmes de jeu ou 
d'éducation. 


RND(X) pour X > 0: 
Fournit un nombre aléatoire compris entre O et 1 (1 exclus) 


10 PRINT RND (1) 
20 GOTO 10 


Appuyer sur 
CtriC - 


RUN 


pour stopper 





-212 
-.053 
-67 


BREAK AT 10 


Lors d'un second 


RUN RUN - la série est 


différente 





.042 .51 .234 .... 
Pour obtenir des nombres entiers entre O0 et 9 par exemple, il faut : 


® multiplier le nombre obtenu par 10 
e prendre la partie entière du résultat, avec la fonction INT (X) 


19 X=RND (1) 
20 Y=Xx10 


30 Z=INT(Y) 
\ 40 PRINT AN 


‘50 GOTO 10 





Donne la partie 
entiere de v 


RUN (PRINT INT (2.12) 2 2) 





salé El2 “2 
.053 0.53 0 
.67 6.7 6 

À | 


RND (1) RND(I) # 10 INT (RND (1) * 10) 
Pour obtenir un nombre entre 1 et 10, il suffit d'ajouter 1. 


10 FOR N=1 TO 3 

20 PRINT INT (RND (1)x10)+1 
30 NEXT N 

RUN 


3 110 


ORIC POUR TOUS | 93 


RND (X) pour X < 0: 


X négatif initialise une série aléatoire qui dépend de la valeur de X. Cette série est toujours la 
même pour une valeur de X. 


19 X=RND (-2) 

20 REM —---------- 

30 FOR I=1 TO 3 

40 PRINT INT CRND(1)x6+1 
50 NEXT I 


RUN 


243 | 
RUN _. 
243 


Sans 10 X = RND (- 2), la série aléatoire après le second ‘RUN’ aurait été différente de celle 
obtenue après le premier ‘RUN. 


RND (0) 


Fournit le dernier nombre aléatoire. 


10 FOR I=1 TO 3 
29 PRINT RND(1) 
30 NEXT I 


RUN 


-567 
-023 


.12 4 


PRINT RND (0 
l De Donne le dernier 


12 nombre aléatoire 


Mode immédiat 
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Divisions : 


Ce programme choisit 2 nombres au hasard, les affiche à l’écran, attend en réponse leur 
quotient puis vérifie que le résultat est juste. 
Le niveau de difficulté est choisi au départ. 


10 REM DIV DIVISIONS 

20 : 

30 INPUT ‘Dividende maxi ? (ex 1900) "';DV 
40 : 


50 X=INT (RND (1) DV) +1 
69 Y=INT CRND (1) #DV/10)+#1 


80 PRINT:PRINT ‘Quel est Le quotient de ">X;'"par'"';Y; 
99 INPUT " Votre reponse? "';REP 
100 IF INT(X/Y)=REP THEN PRINT:PRINT ‘'C'est bon'":GOTO 50 
110 : 
120 PRINT:PRINT ‘Le quotient de ‘"';X;''par'"";Y "'est''; INT (X/Y) 
130 GOTO 50 

RUN 

Dividende maxi ? (ex 1909) Lie 

Quel est Le quotient de 45 par 4 Votre reponse? ?— 7 


C'est bon 


Le reste se calculerait par: R=X-INT(X/Y) 
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CFOIX DES COULEURS 


Les couleurs du fond de l'écran (BACKGROUND) et la couleur des caractères 
(FOREGROUND) se choisissent à l’aide de PAPER et INK. Les numéros de couleur sont 
compris entre 0 et 7. Au moment de la mise sous tension, le fond est blanc et la couleur des 
caractères noire. 

En frappant PAPER 6, le fond devient bleu clair. 


noir 
rouge 

vert 

jaune 
bleu 
violet 
bleu clair 
blanc 


IAB ON ri © 


PAPER 6 


3 


Le fond de l'écran 
devient bleu clair 


INK 1 
My 


Les caractères 
deviennent 
rouges 


INK et PAPER s'appliquent à l'écran entier. Nous verrons plus loin comment choisir une 
couleur de fond pour une partie d’écran seulement. 
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GRAPHIQUE 
BASSE RÉSOLUTION 


LORES 0 
LORES 1 
PLOT X,Y,chaîne 


En graphique basse résolution, l'écran est divisé en 39 x 27 points 


Les 2 modes LORES 0 et LORES 1 permettent d'afficher respectivement le jeu de caractères 
standards et le jeu de caractères dit alternés (ou semi graphiques). 
Par exemple, À en alterné devient: = M. 


PLOT X,Y,chaîne : 
14 LORES 4 
SA PLOT 15%,18, "COUCOU" 


39 (0—38) 


27 (026) 





PLOT X,Y,code caractère : 


Les codes 17 à 23 permettent de dessiner des fonds de couleur. 


14 LÜORES 
24 FLOT 15:18,47 


à. à 


Différentes couleurs 


16 noir 

17 rouge 

18 vert 

19 jaune 

20 bleu 

21 violet 

22 bleu clair 
23 blanc 
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En choisissant LORES 1, on obtient à la place du caractère «A» le caractère #8 


14 LOÜRES 1 
eg PLOT 15,16, "A" 





Accès au jeu alterné en LORES 0 
En LORES 0, on accède au jeu alterné à l’aide de CHR$(8) 








14 LÜRES 

24 #$="44A" 

SA MÉ2CMHRSE et AAA 4 ME La 

44 FL 1, LS 

“ LOT 14,15: san 


FLOT 14, LE. 1# 
un, 


Sur LORES 1, l'accès au jeu de caractères standard se fait ainsi : 


LORES 1 
H$= "AAA" 
MB=CHRSC & 4 HE CHR Si 
PLOT 19,15,48 

FLOT 14,16, M$ 





Se ES 
RS 19 1 
DS Di 


Un Rif 
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Pavé 


Nous simulons une chute de pavé partant du haut de l’écran, le pavé est successivement 
dessiné puis effacé 


REM = PAUE men 
LORES & 


mihi 


ds 


FOR I=1 TO 


FEM Dessin bas 
FLIT .1Ë MEN Effac 
FLÜT : 


FOR H=1 TO 19 :PLOT #,24,17:MEXT 
In 
1 
“1? :REN Fawe 
AIT 
HEXT I FR SERRE TRES 


EXFLICE 
GOTO 34 


DSi 


& 
FO. 


unis en 
LL 


— 


Jin LE GO Pire re Cf 
DRE 


ID 
Se ii 


Ciel étoilé multicolore 


14 FENM Liei étoile multicolore 





EE #7 2 [RCD AE 
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La balle qui rebondit : 


Ce programme fait rebondir une balle entre 2 murs. 


i REM -—— La balle qui rebondit --- 


‘en 


- & 


D LG 
RARE LUE ER 


LÜORES 
FOR “el TO ZE 

PLOT 6,26: PLOT 56,0%, cf 
HEAT 





6 4=14:"=10 
Fg WITESSES= 
34 A=HA+MTTES 
SA IF él OF 
144: 

115 PLOT #4, 17 

124 FLAT #4 lé 

154 GÜTO 68 

148 : 

159 VITESSES-VITESSE 
164 FINS 

174 GÜTO 54 







BE ——> 


7 THEN 15% 


Celui-ci fait rebondir la balle entre les 4 murs. 





15 


REM EILLARD 
24 : 

































SFr THEM sat 
TH 


*PIHG:GOTO : 
1 THEN Wre-Wi:PING:COTO 22 


E 





14 AIT 5 
15 FLOT XP: YP, LE 


BG MPa PU pepe 
34 GOT 174 
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Squash 
Une balle rebondit sur 3 murs. 
Le joueur doit la faire rebondir sur la raquette qu'il déplace avec les flèches 7 | 


Remarque : Nous aurions pu inverser VX et VY à chaque rebond en faisant VX = —VX et VY 
= —VY. Mais pour des raisons d’arrondi, il pourrait se produire des faux rebonds. 





C <— VI =] 


Balle 
(XR. YR) LC] K XB.YB 


| A 
LL" 
N 


Raquette / 
pour déplacer x # 


NZ 
Il E « v2 36 














EALLE AL LR 















PAL 










MALE 
REMT Frrog éme Eos À EL 


REM Houvelle Position 





“:GOTO 186 
QUOTE 166 





AND YELTR4S T FIHG:GOTO 188 







AD VER VE 


Halle 











MReTREL  PLOT MR, 1, LE: FLOT RTE 


es TRS, LE: FLOT SE, TE 
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Tir 


Voici 


sur cible 


un programme de tir. Cette fois la cible est fixe et le tir mobile (CHAR par exemple). 


L'angle de tir est de 45 degrés: il pourrait être changé en modifiant la vitesse VT. 


102 


B CB1: 
FIXE 
XC. YC 


E 


TIR MOBILE 
(XT. VT) 





19 REM ==" TIR SUR CIBLE = 





| 
ia) LORES Fi REM mode GraFhique 


HS LF= fi 
HA Ce THTERHOE LES HSE: CRE 
54 PLOT “CE. 1 









BA MTa :RENM vitesse tir 

F4 #Ts1 : YTeS EM coordonmmegs tir 

15) 

a FLOT Fès, Ar 6 EN efface ancienne Position 
146 PLOT à vi “Tir 

114 AT MENT RE ancienne Position 

1:24 LYC THEN FLOT 184,14, '"RATE":HMAIT 494: GOTQ ZA 

125 F THEH FLÛT 18,14, "RATE":MAIT 4@é:GOTO Z4 


134 - AND YCSYT THEH EXFLODE : FLOT 16,16, "GAGHE" : EH 


146 


159 HeKEVS IF MSc" THEN DPF: £AF  :REM Depart tir 
16 HE 


G IF DF=4 THEH 
Fa : 





HT=YT+YT 


Fire pe pe 
GS 5 02 
RARE 


ATesT+L: GOT 34 


ORIC POUR TOUS 


Télécran 


Principe : 


En appuyant sur les flèches ? | <—, vous déplacez un «point » qui laisse une 


«trace» sur son passage ce qui vous permet de dessiner «manuellement ». 
Si vous avez appuyé sur « L », le déplacement s'effectue sans laisser de trace, permettant ainsi 
de dessiner une fiqure en plusieurs parties. 


Améliorations possibles : Enregistrement du dessin dans une table pour duplication avec 


échelle. 





(a 
E 


UD QD 5 Ti LA Le Lo Pa Put me 
en © D 


oh he bé pe 
mEQNUeS 
DS eue 


À 


— — 
EN TELECFAH 
LORES (s 
#=18 “=1f :REM Coordonnees dePart 


FLOT 34.15, "B:BAISSER" 
FLOT 36,13, "L:LEVER" 


C&=KEYS: IF C#<2"" THEN 159 :REM Attente fraPre clavier 
FLOT Kw, 17 





A FLOT #,%:16 :RENM Curseur clignotant 
GQTO #@ 
2e Le THEH FLOT x:%.17 REM Allume en rouge 
CefSCL CS 1 
IF C=$ THEM IF #26 THEM #z#-1  :REM Gauche 
IF C=93 THEH IF 4€ 38 THEH # +1 :RENM Droite 
IF C=i4 THEH IF v<24 THEH ='f+1 
IF C=ii THEH IF Y:9 THEH v=r-1 
G IF CH="L" THEN Lei :RENM Lever 
IF Cé="E" THEH Lef :REM Baisse 


GÜTO 65 
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GRAPHIQUES 
HAUTE RÉSOLUTION 


HIRES — TEXT 
CURSET X, Y, couleur 
CURMOV DX, DY, couleur 
DRAW DX, DY, couleur 
CIRCLE rayon, couleur 
POINT X, Y 
PATTERN X 
FILL hauteur, longueur, couleur 
CHAR code, jeu caractère, couleur 


L’instruction HIRES permet d'accéder au mode ‘haute résolution’ 
Le retour en mode normal (TEXT) se fait par l’instruction TEXT. 
En haute résolution, l'écran est divisé en 240*200 points. 


HIRES tnitialise la couleur background (de fond) en noir et la couleur foreground en blanc. 
3 lignes sont réservées pour le texte en bas de l'écran. 


E——— 240 (0239) —> 








3 lignes de texte 








CURSET X,Y,type couleur 


Le positionnement du ‘curseur’ se fait par CURSET. C’est un positionnement en absolu. 
‘type couleur’ peut être égal à 0, 1, 2, 8. 
Pour ‘type couleur égal à 1, CURSET allume le point spécifié. 
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ju 
10 HIRES 


20 CURSET 120,100, 1 LCR 


LE POINT 
S'ALLUME 





Pour revenir en mode texte, nous frappons en mode direct : 


TEXT 
ent 


Nous développerons plus loin la notion de ‘type de couleur. 


DRAW DX,DY,type couleur : 


Trace une droite à partir du point courant (position du curseur). Les paramètres DX et DY 
spécifient des déplacements relatifs au point courant. 


Point 
courant 





10 HIRES 
20 CURSET 120,100,1 
30 DRAW 50,50,1 






Le point courant devient (120 + 50), (100 + 50). 
En ajoutant au programme : 


40 DRAW 20,0,1 


On obtient le tracé suivant. 


DRAW 20, 0, 1 
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TEXT permet de revenir au mode normal. 


Par exemple, dessinons un carré : 


10 HIRES 

20 CURSET 100,190,1 
30 : 

40 DRAW 50,0,1 

50 DRAW 0,50,1 

60 DRAW -50,0,1 

70 DRAW 0,-50,1 


Et maintenant. un escargot : 





: FOR Hei TO SH16é STEF € 
ÉUE| CEA H .f 





+ 

54 : DEAN JH#E 
SE = Hd 1, 0 Re 
CHE D 1 






THEH LE 
THEH Cet 
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Types de couleur : 

4 types de couleur peuvent être spécifiés dans les instructions graphiques : 
— Foreground (1) : DRAW 50,50,1 

Dessine avec la couleur foreground (choisie par INK couleur) 


— Background (0) : DRAW 50,50,0 


Dessine avec la couleur de fond (choisie par PAPER couleur) 
Peut servir à effacer un tracé fait en couleur foreground. 


— Inverse (2): DRAW 50,50,2 


Dessine en couleur inverse : 
e Si le tracé n'existait pas, il est fait en couleur foreground. 
e Si le tracé a lieu sur une zone déjà coloriée, il se fait en couleur de fond. 


— Nul (3): DRAW 50,50,3 


Ne dessine pas. 
Ci-dessous, nous dessinons un anneau de la façon suivante : 


e Nous dessinons d’abord un petit rectangle en couleur foreground. 
e Nous superposons un grand rectangle en couleur inverse. 
Le rectangle central est ‘effacé’. Ainsi, il reste un anneau. 


(Nous aurions pu également dessiner le rectangle central en couleur de fond après avoir 
dessiné le grand rectangle). 








" On dessine 
D) } d'abord un 
/] petit rectangle 
- Petit rectanale couleur Foreroncr 
SE LEA, 1 
HET 
AIT ZA 
REM---e---— Grand rectangle couleur inverse 
FOR ei TO SA 
CURSET EE. EE 









DEAN 4,56, 
HET 
2H GET AS 
214 TEXT 





Le 2° rectangle 
efface le premier 


CE 5 
£ moe 
D DS 
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CURMOV DX,DY,type couleur : 


Agit comme CURSET X,Y,type couleur, mais les paramètres spécifiés sont des déplacements 
relatifs au point courant. 


CIRCLE rayon,type couleur : 


Trace un cercle dont le centre est le point courant. 


10 HIRES 
20 CURSET 100,100,1 
30 CIRCLE 50,1 


Pour tracer un cercle plein, on fait : 


10 HIRES 
20 CURSET 100,100,1 
30 FOR R=1 TO 30 

40 : CIRCLE R,1 

50 NEXT R 


On pourra ajouter : 





fa? 


ÿ MAITT 





LE 
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Cercles aléatoires : 


Des cercles de rayon aléatoire sont affichés aléatoirement sur l’écran. 


14 HIFRES 

15 IHES 

EE : 

SE FOR Hel TO ZA 

44 1 #=RHDI 1 1#240+24 

24 : YeRHDC 1415642 E 
F1 6+FRHDE 1 GEL 
CURSET #4. 6 
CIRCLE K 1 

MEAT H 





Dim 


D mu nn 


Cône : 


Dessine un cône en perspective. 


— 
Dex 


HIRE®E 
IHHS 


FÜR F5 T0 56 STEF à 
CURSET SG+R, DA+RXE, 1 
CIRCLE F1 

HEAT F 


D-jnmiiltie 


Dome 
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Croissant de lune 


Un dessin de lune est obtenu par superposition d’un cercle en couleur BACKGROUND sur un 
cercle en couleur FOREGROUND. 





Es 
ù N 
5 REM  LUHE \ + 
6 : : ! Cercle Pen 
A MHIFES:IHKS / en couleur 
1 aile IH D SL de fond 
4 FEM Cercle Pleir DS 
39 Bel GE: Gel Res: Cal: GOSUE 195 
44 : Cercle plein 
45 FENM Cercle en couleur de ford en couleur 
A Ga +S : Rep lg:Ced: GOSUE 135 foregrourd Il reste une lune 
 : 


4 EH 
Q FEM--e-eesemese TRACE C'UH CERCLE FLEIH 
à CURSET #4,%6,C 
& FÜR “ei TO FE 
CIRÊLE #0 
HET à 
4 FETURH 


Dore min 
= D Din CE 
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Chat 


REM 


2 IHK3 
15 REN 

28 DATA 
38 CATA 
44 DATA 
29 DATA 
54 CATA 
6 DATA 
Fa CATA 


DATA 
DATA 


Form Jin 


CATA 
CATA 
DATA 


CATA 
DATA 
CATA 
FEN 

FOR: 


HE 
RENM 
FÜR 


On nmbmin rs 00 00 00 0 CO OÙ C0 CO D D -J 


B Lo Po it LA Bo Pie 1 0 0 4 Mi CA BL 


Fo Fo Fa F5 


384 REA 
314 CES 


CHAT 


a) HIRES 


144.66, 15 
149,54, 16 


124.104,54 :REM Tete 
E 


124, 145,3 


+4, 
44, —: 
44, 


124,125 
14.-8 


«4 


[a] 
25ir 
a. 45 


166,40 
-12.17 
2, 44 
Fzi TO 4 
FREAD 3% 
CURSET %#, 
CIFCLE BR, 
TF 

H=1 TO 3 
FEAC CD, 
CURSET : 


me et mutt 0 men men eu FE 
D #4." 
D Dé, Cr 





CEE Ta or 


:FENM He: 
:FENM Moustaches. 
:REM Ecuche 


:RENM Oreilles 


F 
“1 
1 


Moustaches 






A Hg ee ou ee em ne 
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364. REM. == Oreilles “ssssssmsse 







424 FEAD Ci 
436 DRAM Lis. 
44 CURSET 
454 READ Dé, DT 
+4 DRAM Ci, Cr, 1 





499 READ %." 
249 READ Lx 
514 CURSET l 

Sen REC Dé, Ov: DRAM Dés, D À 
1844 GET A 

LEA TEST 






CURSET %, 741 
DRAM Lis Dir 
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Ours chic 





RE QUFS  CMIC 


Tin 


HIRES:IHEE 

F E [dl ns Doi RÉ LUE na ai 2e De 
#9=164: "4216 
CURSET #6 ." 
FOR Fi TO 3 
REM “me 
CURSET 6-24, 
FOR Kz1i TO 2e 
A CURSET “G+20, 
A FOR Fzi TO F4: LÉ Fi:HEXT F 

f1 FE 1 (QE aast aus cé: ns ii SE don ans dm ds LE eu es dr T Fi £ F EE me om am on 
CURSET 6, ES, ZE 

FOR Kzî TO S:CIRÎLE FG:HEXT F 

FErN--— PR ES RS ER PS RE PR Pre “E IL :e CCR PR ARR re 
CURSET “9-16, 4-10, 1 

FOR FeZ T0 GS:CIFRCLE FH:HEST À 





ut Cane ton ee cm tte one on 2065 does Une a om Te +. Eee no ns a ae 


fire it 
nom 


Les Foi 3 
Le 


= 
ct 


5 
aus 
3: 


CIRCLE FT: HET EF 


à 0 ou mms nee nus Ür E 11 | HZ one cts me di 


LEZ 





fin © Ge © 







F: 


Es babe be LU 
£ Lo 
an 


] LA 
Lx] 


x] 
Ut iS 
D UE 









CURSET £6+16."4-16,1 

FOR Re TO S:CIFRCLE FRH:HE*" 

FENM--— 

FOR ‘“=-5 je 8 
CURE SET : Ÿ 







Fois pe pa 
x 


Lens 
Der Eux 


DR LE 







[EX] 





21 


4+35, L'DRAN -15,%:1 
DL DEAN +151 


D © 





lo Folorair 


Go 


CURSET “4-1, 44+16, G:DRAU 3.6.6 
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Ours jumeaux 





14 HIRES:IHES 


15 : :REM CENTRE“FRAYOH 
29 DATA 129,164.564 ‘REM CORFS 

36 DATA 124,39,36 :REM TETE 

44 DATA 35,145,18 :REM PATTES 


54 DATA 155,148,15 

64 DATA 84,6@,13 

F4 DATA 169.64,13 

86 DATA 35.14.77 ‘REM OREILLES 
34 CATA 145,14,7 

199 DATA 147,24,5 :REM YEUX 

119 DATA 133,26,5 

126 DATA 126,346 :REM HEZ 

LSU REMRSSESSSseressnensnnns 1EF QURE 
146 FOR F=1 TO 11 

154 : READ #1,%1,F 

165 : CURSET #1-59,%1,1 

174 : CIRCLE F.1 

F9 HEXT P 

Fr CURSET 65. 42,3 

176 DEAU S,4+£,1:DRAN 5,-2,1 

1864 REM-----eeeseceme. DENME OURS 
121 RESTORE 

18€ FOR F=1i TO 11 

183 :  READ #1,Y1.F 

184 :  CURSET #“1+54,%1,1 

185 : CIRCLE Ki 

187 HET F 

152 CURSET 168,42,3 

183 CRAN 5-2, 1:DRAN 5,2, 1 

138 : 
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Dessin d’un cube : 


Les composantes de 3 vecteurs sont stockées dans 2 tables DX () et DY (). Nous calculons les 
coordonnées des différents sommets à partir desquels nous traçons les arêtes. 


Æ 
m 
= 


DESSIN C'UH CUBE 


AB 146: Az 1 GE 

HC=E 

RENM LomPosantes eee eee eee 
Cie 452566: Cré Ge 

Césc 1 eg: Dé 1 es 

Con Eee 204: Cp mt 





D 7 M UN LD far Min 


HIRES 
REM---- Sommet en binaire 
FOR Seg TO € ZTHC 1 
:H=S 
‘FOR IsHC-1 TO 4 STEF-1 
PET OSINTENSE EST 5 
MeH-Pé THE BCT +, AG 





CALCUL Coordonnees sommet 





FOR ie T0 HE 1 

É IF Péli=G THEH 214 
CR D 2 RXCUUS 1 
PPS 






DUO MIMAL Ge RRQ RE 


Nfomememmmn Er rs {np 
DRE EL EN E UN ERT EL ERT ENTER EL) 


HEXT 
Q 1REM----------"---- TRACE des aretes 
234 :FOR I=@ TO HC-1 

249 : 1F PCIX28 THEN 276 

254 : CURSET HS), 82,1 

266 : DRAU DXC19 DVI), 1 

274 :MEXT I 

272 à PRINT "E=";S,PC2D,Pé 13 PE Go 

275 :WAIT 246 

28 MEXT 5 


Fo 
F5 
Si 





Dessin aléatoire : 


Des points sont choisis au hasard. Nous les relions entre eux par des droites. 


pal ren DESSIH ALEATOIRE 


M 


16 HIRES 

15 INKS5 

1 CURSET 16.1@.1 

24 FOR Fzi TO 56 

39 AS IMTE RH 1 24156 +164 
44 : YeINTERHOC 1 TES 05 
54 : CRAN A TA, À 

EA 5 Az: YAz" 

F4 HEXT P 
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Dessin avec échelle : 


Dessine une figure définie par des déplacements successifs. 
En adaptant l'échelle, on peut reproduire le dessin avec des tailles différentes. 


Echelle 1 
X0, YO Echelle 5 


DÉPLACEMENT 0 
DY DX 


18 REM —---- CESSIH AVEC ECHELLE —-- 


39 DATA G,14, 14.9, 4,24, 14.4 
49 CATA H,-19, 24,9, W,14 
54 DATA 14,6, M,-24, 3,4, A, 
68 DATA -3,4, M,+3 ,-30,4,  4,- 
A 25, 

DATA 33,533 


es 
Len 
ms] 
— 
ZT 


A HIRES : IHK 3 

5 49-58: "G=50 :ECH=1 

A GÜÛSUE 254 REM ler dessin 
ñ . 

G 


d 

ä “G= 128: “a ECH=, 5 

ä GOSUE 2 PEN eme dessin ——- 
ä GET Fu 

G TEXT 

à EH 

A REM —--— SOUS PROGRAMME DESSIN esse mes 


Ti SUD MALO Me SD 


8 FÜR Fi TO 1944 
64 Rene Li : : RERD CY:IF Dés AND Des THEH SE 
“A=DE 


FOFo rie pe bah pes pe hs ps be If DO — 





235 : CURSET #4, 6, L:'DRAN 41,1. 1 
344 :AGek 4x1 De TE 

314 HEXT P 

324 RETUFH 


Les figures dessinées par ce programme ne doivent pas présenter de discontinuité. 


Pour ajouter un œil au chien, nous pourrions indiquer qu'il y a discontinuité en codant 0,0 dans 
les DATAS : 


75 DATA 0,0, 10,3, 3,0 
36 DATA: 0,3, 23:0, 0423 


265 IF DX-0 AND DY-0 THEN READ DX:READ DY:X0O=-X0+DX*ECH:VYO=YO+DY*ECH:GOTO 
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Super télécran : 


Nous reprenons le programme Télécran basse résolution en y ajoutant 4 autres directions. Les 
chiffres 1, 2, 3 et 4 servent à déplacer le curseur en diagonale. 


Naturellement, on pensera à utiliser la touche « REPEAT ». 


8 directions 





14 FEM TELECFAH € HAUTE RESOLUTIOH 

12 : 

13 FEM 8 Cirections: à flechest 1 Z ZT 4 
14 : 

2 : 

£n HIRES 

SA 2140: "210 :FEM Coordonnées dePart 
44 : 


CH=KEYS:IF CRIE OTHEH 159 0 :EEN Attente fraPFe clavier 
CURSET #1 

CLIRSET #5 

GÜTO 84 


EURE DE EX | 


DS Ris 


IF Leä THEH CURSET #,%1 ‘FREM Allume 


Lui 


‘FEM Gauche 
‘PEN Droite 





fi 
Î 
5 pie À 
a Fer 
1 er 
£! cer +] 


IF CH="L' THEH Lei ‘REM Lever 
IF CH=e"E" THEH Lsf :FEM Baisser 
GÛTO 56 


home mmEemE Re pe Es mes ie he be &ÿ Où 
Fo @ 0 WOOD MU Eee SD ER: 


DOGRGDOMELT OR GR 


DO] 
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Evitez 


Un point se déplace à travers des obstacles. Vous devez adapter la direction pour éviter les 


obstacles. 


DRAELX 


JR de Pi Pi Po Po Pi me 


ER: 
© D Dm D JTE 


PO Pa Pa Fo FO Po Fi 


BELL 
Fo 


l'obstacle ! 


EM DÉSTACLE 


HIFES : IHKZ 
INPUT MHIMVEAU C1... 
IF H=A THEH H=1 


ERA za, € 
DRAU &,154, 
DRAU -200, à. 
DEAN 4.-154, 
RE 
FOR F=t TO H#16 
HæRHDE 1 1€190+26 


1 
x 
Det] 
ps 


Cbstacles 


ei 1 El A+2 6 

CLIRSET #1 

CURSET +11 

CURSET %,%+1,1 

CURSET 41. +1,1 
HE TF 


FENM -... Conrdonges depart 
#eRHDE 1 D4190+20 

“=RHD 1 4148+20 

IF POINTE, Yis-1 THEN 28 

FEM -- fttente depart 
C£-KEYS 

PL" THEN GOSUB 269 :GOTO 315 
1: MAIT 16 

. 








CURE 24 


294 REM ----— Actualisation 


CeASCE CS 

IF Ce1@ THEH Ci 
IF C=11 THEH 
IF Leg  THEH Cé 
IF Ces THEH Ci 









Gi: DY=1 
G: Ci=1 
-1:Dv=8 
=1:0y=28 


15 FETUFH 





3 CURSET #: 


PEMES eee ee after ee en 
F=14 
C$=KEYS: IF Ci" THEN GOSUE 268 


F=P+1 


Q HæH4D : Van 






IF POIHTCE, Vis THEN 4@@ 


si 
GOT 324 


FER. be eo ee ne one ot ue ane ce ect 00 de om 000 come ce co vote at mr no a sa 


4 EXPLODE 
A PRIHT F:"POIHTS" ; 


AIT SGG:GÛTO 25 
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Utiliser les flèches 
pour définir la 
direction 


Tracé de cercles ou d’ellipses : 


Un cercle peut se tracer point par point ou par segments de droites. 
Naturellement, le tracé est beaucoup plus lent que s’il était effectué directement par une 
instruction BASIC, telle que l’instruction CIRCLE. 


Nous calculons les coordonnées X et Y d’un cercle de rayon R par: 


X=R*%COS (ANG) 
Y=R4SIN (ANG) 


En faisant varier ANG de 0 à 6.28 radians. 


Pour une ellipse, X et Y sont donnés par : 


Y = D X SIN (ANG) 


X=(L/2)xC0S (ANG) 
Y=(H/2) xSIN (ANG) 


19 RENM ELLIPSE 

4 : 

36 HIRES:IHES 

44 0e 100: "6= 1644 

54 Le164:H=144 

64 : 

194 FOR ANG=g TO 2Z#PFI STEF. 1 
119 : A=k@g+cL. 2 #COSC ANG à 
124 : = r@+é He #5 TN ANG à 
139 : CURSET #,%,1 

144 HET AHG 

154 : 

169 GET #$ 

174 TEXT 





En faisant H = L, nous obtenons bien sur un cercle de rayon L/2. 
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Tracé de figures inscrites dans un cercle 


Nous présentons ici le tracé de figures inscrites dans un cercle ou une ellipse (triangle, carré, 
losange .…) 


triangle : 


= 
2 


ii 





ni 12 


PEN Hombre de cotes 


n £ dû 
D mimi 


mins 





jun min 
DER: 
7 
Li 
Z 
î 





carré : 


Il suffit de faire : 40 NCOT = 4 


losange : 





39 L=50:H4=89 

40 NCOT=4 

59 GOSU8 190 

51 : 

52 L=Lx.8:4=Hx.8 
54 GOSU3 109 





120 | oric POUR TOUS 


Rotation d’un carré : 


Dessine un carré qui pivote sur lui-même. 


149 
115 

129 
15 


138 : 
148 : 
145 : 


159 
155 


164 : 


179 
184 


HIRES : IHK2 

#0=196 :"6=199 

H=139:L=184 

HCOT=4 :REM Hombre de cotes 


FOR KT=G TO PI-2 STEP PI1-18 
: GOSUE 169 
HEAT RT 
EHD 
REM-- ee SPGU een mme 
AASAÈL< SXCOSCRT 2: AS TO+HALESTHERT 2 
FOR =1 TO HCOT 
NS CXE*PI/HCOT 
As +L/2ECOSE ANGEHRT 2 
= tG+H/24S INC ANG4RT à 
: CURSET #A, A, 1 
5 DRAN #4, "TA, 1 
HASK VAT 
HEAT LC 
RETURH 
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121 


Tracé de courbe sur ECRAN : 


Voici un programme de tracé de courbe Y=f(X). 
Nous recherchons le mini et le maxi de Ÿ : V1 et Y2 puis nous calculons les échelles pour X et Y 


de façon à utiliser au mieux la dimension de l'écran. 





HECR 40 











LECR - 120 


Di 
LA 


FEM TÉACE CE COURÉE 


HEC RE 156: LECR=ZGE :FENM Hauteur longueur. écran 
IHFUT "ECRHE 
INPUT MBÛRNE 2 "Ex 
FHPU "PAS "3: FAS 





Le 
x 





5 3) Mi CA Bt 
RARE NT ENT EUX: 








a A=E1 : GOSUE LG: let Eee 

Tel FOF. #sE1 TO EX STEF FHS 

14: GOSUE: 29 

Li : 1 THEH Yl=" :RENM Mini 

LE : & THEH ex :REM Maxi 

1356 HEAT 

135 

145 HIRES 

154 EseLECRSCBE-E1 :REN Echelle % 
164 EC MECR ee él :REM Echelle * 

1 PE RER ne ea ne ne a a mn FE mme 
194 IF Véet4 THEH IF “l£zg THEH Y=HECR- ABS NA CHEN CURSET 1%, 1:0RAW 


LEUR, 4, 1 
196 IF Es THEN IF Eléeÿ THEN SeABSC ET EX: CURSET #11: CRAN HE 
CF 
AE RER eue 
È FÜR #eB1 TO EX STEP FAS 
:GOSUE 2936 
me Et] 1 IREKX 
:SYSHECR 
CURSET S%. gv,L 

Et HEXT % 

265 PRINT MEde" El "EE" SÉEsCMINIS OEM TE UNE 
Fr GET #$ 
875 TE* T END 













- Courbe 4 tracer 
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Quelques dessins 
Dessine un œuf : 

15 FEW OEUF 

“A 








+ M 





SG HIF “4 
5 PAPER &:INKE 


Fe FOR AHG=@ TO S#PI STEP F1/58 





X0. YO + L/2 














16 “g= 144: "4146 


34 HIFES 

44 PAFER FINE & 

45 E=55 

29 FOR AHG=G TO FI#£Z STEF PI-146 
Fa ASE k#é 1-C0S6 ANG 2 1# COS ANG 

GG :Y=E#1.3#e 1-C0 AMG CEST HE ANG 
85 IF Kè-1 AMD #1 AND 1 AND Yé1 THEH 16 
94 :CURSET «9,6, 1:DFAM 4,1, 1 

188 HEXT AHG 

195 DRAM 18.4, 

115 

124 GET #4 

134 TEXT 
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Dessine une toile... et son araignée : 


a F 
Ë : 


Bi Ti 
C0 -H in GS D ie 


L5 D DE 


a 
5 @ 
Le 


134 
14f 
158 
169 
174 


Dessine 


124 


ke Min 


D Fo Din R CN 


Da] 


à 


So 


QAGRUIues ce 


x 
2! 


7 
3 
1 
1 
1 
1 
Î 
1 
1 


re 





re 
fi 
D 


EN ARAIGHEE 


“As FO : Aer 
F1 


HIRES 
FAPERE : THE 
FOR Mz3 TO 1 STEF -.5 
ARE 1 T'AS 
CURSET +R 41, 8 1 
FOR A=Pl-4 TO Z#PI+,1 STEF FI.-4 
HeRXMECOSC À 2 
ERKMESTHE A 0) 
CRAU A, "A, 1 
IF Me3 THEN DEAN —%, "1", 1 
CURSET ft, Et, 


FOR “e144 TO 184 STEF 3% 
: CURSET 64,%,1 

MEËAT 

CIFRCLE 4,1 


un soleil : 


RENM SOLEIL 





6e 1 46: fe 1 GE 
RE seen RE eee anne meme 
CURSET #4, 





‘4, 1 
FOR R=1 TO 34 
: CIRCLE F1 
HEZT E 


REM=—mmmnnennnne RAYONS mme 
FOR Az TO ZYXFI STEF F1l-2f 
Rzdf+R HD 1 44m 
AeRHCOSE À 1: VeRHE THE À 5 

CURSET #9, 86,1 :DEAN % "1 

HET 
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PATTERN X : 


Cette instruction permet d'effectuer des tracés en pointillés. Le dessin des pointillés est fonction 
de la valeur binaire de X. À chaque 1° binaire correspond un trait plein. 


121 OLJO1111 


EX, 


HIRES 
FATTERH 11 
CURSET 164,146 
DRAM SE, 6,1 


= 
EX 


ARR 


Rire 


… 
x 


L 


Le programme ci-dessous dessine un cercle plein avec des alvéoles 


HIFES 

CURSET 144,146, 

FOR Rei TO 36 
FATTEEH F 
CIRCLE F.1 

HE#T F 


pes A QUE 
AUX EUX EUX ELA EUX, 


Din R if 
es, 
dx 


Ë 


POINT (X,Y) : 


Donne 0 si le point est en couleur BACKGROUND et — 1 si le point est en couleur 
FOREGROUND. 


G HIRES 
3 PRINT POINTC 18, 160) 





Î 
an CURSET 20, LA, 1 
54 PRINT FOIHTÉ 164, 1 
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FILL nombre de lignes, longueur, couleur : 


L'instruction FILL permet de modifier la couleur de fond et la couleur d’écriture de 
parties d'écran. L'écran est découpé en 200 X 40 cellules. 


40 





HE 


Fond: 16 < = couleur < = 23. 
Ecriture : 0 < = couleur < = 7. 200 


Le coloriage se fait à droite de la position du curseur 


Pi 
EX ELX EL 


100, 100 


Lili 
Œ 





46 
cä CURE ET 54,158, 1 
64 FILL 14,1,1% 


50, 150 





La longueur spécifiée (1 sur l'exemple) n’a de sens qu’en cas de recouvrement par des FILL 
successifs. Dans le cas présenté, le coloriage se fait jusqu’au bout de l'écran. 


LA RER Carres de codeur aléatoire 








SET 9.8.0: FILL 158,240-6,16 





à: RHD 1 2E1 


LP TLL Hat 





=RHDC LEP +1 
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Drapeau français : 


Ce programme dessine, par recouvrement de couleurs, un drapeau français. 


F 


neo eemin 
Sn 


ME 
Sax: 


Pan 
es 


154 


nr 
[En 
& 


à Ps 


Ex 


13 
135 
144 
156 
164 
174 
159 
194 
195 
264 


EN DÉAFEAU FÉAHCAIS 
HIFES 

IH 1 

FRANCE 
CURSET 4£,: 

FILL 64,1,2 ‘FEM BLEL 
CURSET 72: 
FILL 64,1, :FEM ELANC 
Re 
FILL 


S x] 


:REM ROUGE 


jr-  — ROUGE 


120 


CURSET 43,54, 1 

DREAM 6, 156, 1 

CURSET 64,56, 1 

Mg= "FRANCE" 

FOR Ie TO LEHS #0 

CHAR ASCOMIDSC KE, I, 111,4, 
CURMOY 4,5, 

MEXT I 





1 





L 


EEE = 
el CZ NOIR 
pénis LS 
Histogramme : 
5 REN HISTOGRANME 
6 
18 DATA 12,8:26, 14 
ei) 
36 HIRES 
4ü 
ET FOR I=i TO à 
6 : READ H DR 
Sn : CURSET IE, 166-H#5. 1 Coul ROUGE = 1 : 
re : FILL Mo er [oo | VERT - 2 
75 : CURSET &dxé 1+10,1B@-HX3, 1 
77 : FILL HK3.1.15 
8@ NEXT 1 * 
DO RE se ce ae ee eee Axes 
184 CURSET 25,20,1 
118 DRAW 6.66, 1 
126 DRAN 126.6, 1 
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Rectangles multicolores : 


e Nous dessinons un rectangle rouge puis nous 
programme sans l'instruction 20. 


superposons un rectangle vert. Essayez le 










5 HIRES 
26 FILL 200.39,1€ 
S5 REM--———— Fectangle rouge 
4à CURSET 40,20, 1 
SA FILL 2G,18,1F ROUGE 
ES REM--———— Féctanale vert 
68 CURSET SM,25, 1 
FY.FILL 65,18 
84 : 
e Des tranches de couleurs sont superposées. 
ROUGE 
6 FREE 26,33, 16 p BLANC 
Sa 
188 FOR Ceë TO 1 STEF-1 
118 : CURSETÉ LC ils, CÆS, 1 
124 FILL LG TELE, Ckd, 1640 
185 HAIT 144 
134 HEST € 
pUERT 

_ # JAUNE 

: #—— BLEU 

ü Æ— VIOLET 


128 


IDR Bio ile 


Go -jin 





: FILL F#8 
HEXT F 


«F#Z, 18+F 
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CHAR Code, jeu caractères, type couleur : 


Cette instruction permet d'afficher un caractère en haute résolution. Le code doit être compris 
entre 32 et 127. 


Code : 32 < code < 127 


Jeu de caractères O0 ou 1 (jeu normal ou alterné) 
Pour afficher la lettre À au point de coordonnées 100, 100 





Le code 
de À 
est 65 





Pour afficher une chaîne, il faut décomposer celle-ci en caractères et afficher chacun d’eux. 









el TO LEHCH& 
MID HS, FT 
CE 1 

0 1, 1,55 


1 HIFES 

EA H$="ORICI" 

24 : 

44 CURSET 14, 106,3 


EU 
NE Bi. 
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Histogramme circulaire : 


Remarque : Pour afficher les pourcentages à l’intérieur de l’histogramme, il faut convertir les 
pourcentages en chaîne (par STR$) puis afficher le résultat caractère par caractère. Le premier 
caractère de la chaîne qui devrait être un espace ne sera pas affiché (son code est 2). 





1 FE HISTOGRANMNME CIRCULAIRE 

2 : 

5 Hé15=.2:H$c15="TARTE" 

É HZ =, 3: Hé Ze "CROIESANT" 

FO H35=, 1 :H$c 3 = "ERIOCHE" 

E Hédie, 3: Hé à 1e "ECLAIF" 
3 HCS5=, 1:H$c 5 =" PAIH" 

14 : CROISSANT 
15 HIFES BRIOCHE 
17 IHKZ 

zA “G=126:"A=140 

44 F=34 


45 CURSET #4.%@,1:CIFCLE F1 


46 PREM-- oeon  o n m mo oo oo 


45 HA=G 

34 a F=i TO 5 

64 A=AAYCPIEHE CHENE 
6E : CURSET #6, 4, À 








69 : HCOSE A 5: SERESTHE A 2 

EF : GRAU : FA HR | :REM Tranche 

ra : 

7e : AT=AA+PFI#HCF à RENM Fogsition texte 


73 : HS=HBCP 
74 : H=RK1. SHCOGC AT D: Y=REL. ZYSIHCAT à 
75 : IF AT>PI-E AHD ATES#PI-2 THEN H=%-LEHNCHK# RE 


: CURSET 444%, 64", 4 :REM Texte 
FÜR I=i TÙ LEHC#S 0 
CHAR ASC MIDSE 8, I, 112,6, 1 
CURNOY €. 6,4 
MEXT I 


+ AA=A 
a NEX TP 


+ LD QD D © D D D - 
AXNSOMmENEE 
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Horloge : 


1& REM HORLOGE 

2Ë : 

39 HIRES: INK 

4 Nat: Gel: Re 

SG : 

GO REM == un me me ms me neue en ue ue one ou nou ven Dessin horloge ---- 
F& CURSET «@,Y@.1:CIRCLE R.i 

80 FOR A=G TO SXFI STEP Fl*‘E 

AÙ : HeRk, GKCOSCA 1: YERX, SKSINCA) 

188 : IF ASFI-2 AND ASSKPI-2 THEN Kzx-5 
118 : CURSET X5+%.%@+1, 0 

184 : CHAR 42.6. 1 

13Q NEXT A 

140 REM eue nu ma mea oo en me on on num Mouvement mes 
156 ReRX,F 

164 FOR A=A TO 188 STEP FI‘30 

179 : IF A+2xPI THEN 318 

184 : CURSET «6.8, 1 

196 © IF Kio OR Y1<9@ THEN DRAW K1.%1.2 
288 : CURSET «8.6.1 

21 NeRXCOSC A 3: VæRKS INC A à 

229 : CRAN avi 

838 : SOUND 14.14 

244 : NAIT à 

858 : SOUND 1.4.4 

268 : HAIT 46 


288 : Kirk: YI=Y 


314 EXPLODE 

SRGHIRES : INK1 

334 CURSET *0,Y9.1 

34@ FOR R=£ TO SG:CIRCLE R1:NEXT R 


Remarque : On peut modifier l'instruction WAIT 40 (ligne 260) de façon à ce qu’un tour de 


cadran corresponde à une minute. 
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Guirlandes circulaires : 


Votre nom apparaît sous forme d’une guirlande circulaire. 


5 FEM GUIFRLANDE CIRCULAIRE 
6 . 


19 HIFRES:IHKE 
28 INPUT "VOTRE HOW ":HS$ 
34 H$S=NG+'"#U4NS:IF LENCH#IESE GOTO 36 








44 : S 
45 CLS 9 

5 FOR F=1 TO 49 É 

64 : A=P#PFI/24 ü 

74 :  Y=SIHCA3KED+100 Mn 0 
75 :  X=COS(A)Kk100+124 Op TN OP 
89 :  XS=MIDHCHS,F, 1) 

94 :  CURSET X,%,4 

35 CHAF ASC 4$ 2,0, 1 

190 HEXT F 

5 REM GUIRLAHCE 

F 

14 HIRES: IHKS 

24 INPUT "YOTEE HOM  ":H$ 

ES H<LEFTHCHS, 50 

36 : 

4 : 

45 CLS 

sé FÜR: 

SE : 

65 

Fa 

85 e 

aû CURSET ie, 

25 CHAF. A5C hs 

7 :  MHEXT FR 

198 HEXT F 
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CARACTÈRES SPÉCIAUX 


Des caractères particuliers permettent (en mode TEXT) de changer la couleur des caractères, la 
couleur de fond où sont écrits les caractères, de doubler la taille des caractères, etc. 


Couleur des caractères : 
La couleur des caractères se choisit par : 
PRINT CHR$(27); «@ à G»: « MESSAGE »: 


Le programme ci-dessous affiche une ligne de caractères verts et une ligne de caractères 
rouges. 


18 CLS CARACTERES VERTS 
24 ES=CHRS 27 à TAROT 
34 PRINT " ";E$;"E";"CARACTERES VERTE"; 

48 PRINT E$;"A";"CARACTERES ROUGES" 





Remarque : Chaque saut de ligne annule le changement de couleur. Par conséquent, 
l'instruction PRINT CHR$(27); «@ à G» doit être exécutée pour chaque ligne. 


Couleur de fond : 


De la même façon, la couleur de fond (où sont écrits les caractères) se choisit par : 


PRINT CHR$(27); «P à W»; 


14 CLS 

24 ES$=CHPS&E ZE 

34 FEIHT " O"SES; "OMS "FOND ROUGE": 
44 FEIHT Egi"e"; "FOND VERT" 


gr FOND ROUGE FOND VERT 


Le fond 
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Ci-dessous, pour 4 couleurs de fond différentes, nous affichons le même message avec 4 
couleurs de caractères différentes. 


Essayez le même programme avec un point virgule à la fin de 80 (PRINT « BLABLA »:) et 95 
PRINT. Vous obtiendrez 4 couleurs de caractères sur la même ligne. 


19 CLS 
24 ES=CHRSE ET à 


46 FÜR CEK=S TO 
2 : FOR CFR=Q TO 3 


64 : PRIHT " "SES; CHR$CEG+CEK ; :FEM BackSround 
F9 : PRINT E$;CHR#CÉéd+CFR 5: :REM Foreground 
86 : FEIHT "ELAELA" 


34 : HMEXT CFR 
198 HEXT CEK 


Fond noir 


x —+ 
—— me ol 





Couleurs avec PLOT : 


Les couleurs d'écriture et de fond peuvent également être choisies avec PLOT X, Y, 
CHRS (couleur). Couleur est compris entre O et 7 pour l'écriture et 16 et 23 pour la 
couleur de fond. 





AB VBeCHRSE LE "FOND FE 





134 | oRIC POUR TOUS 


CARACTERES DE TAILLE DOUBLE : CHR$(27); «J» 


5 ube 
LE! double FA Hauteur 


Fi LIRE éf 1 


normale 






Remarque : L'instruction PRINT en ligne 20 est nécessaire ; elle permet de placer le curseur 
sur une ligne paire. 


Caractères clignotants : CHR$(27); « 


Fr espace 
Fr nécessaire DT |éisnoimen ] | Chunotement | lignotement 


14 CLS a 
&& PRINT " F, SCHRSE ET "LS "MESSAGE" 
EUH 2 MESSACE € 

on Het 4 4 





Retour aux caractères normaux : CHR$(27); «H» 


Clignotement Er | Nomaur | 





19 CLE 
24 ESsCHRSE 27 
34 PRINT "PER TT "MESSAGEL "ES TAC "MESSAGES 


Ÿ 
ee - 


ue MESSALE 1 


ca { 


ff vi ! 


Utilisation de PLOT : 


CHRS (10) — Caractères de taille double. 
CHRS (12) — Caractères clignotants 
CHRS (8) — Caractères normaux. 





\ 







Le double 


DLLIELE 
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CARACTERES ALTERNES : 


Il existe un jeu de caractères alternés (ou semi-graphiques) utiles pour la composition de 
dessins. 


On y accède par: CHR$(27); «I» 


Passage aux 








caractères 
altemés 

14 CLS 4 

SA PEIHT "OMS CHESE diNTri Ut" 


Le programme ci-dessous affiche tous les caractères alternés. 


Fe 
ERX | 


CLS 

FOR Ces TI 14 
PRINT CC, CHE S 
:FRIHT 

HAIT SE 

MEST 






, 
Ut 


£UT 
NRA ELA EUX E: 


13 MI" CHE C2 


Ti 


57, 


Cet autre programme affiche les caractères alternés sur 3 colonnes et en couleur : 


5 FEM CAFACTERES SEMI-GRAPHIQUES 


n 


19 CLS 

29 ES=CHPS 27 ) :REM Escape 
38 : 

49 FOR C=34 TO 99 

42 : PRINT " "; 


45 : PRINT E$;"f"; :REM Rouge 
59 : PRINT E$;"H";C; CHR C5; :REM Hormal 
69 : 


74 : PRIHT E$;"I'";E$; "D"; CHR$#CC); :REM Alterne-/bleu 
99 : G=IHTIC/235:F=C-043:1F F=9 THEH PRINT 
194 HEXT C 


34 " 3 + = 36 $ = 


37 % A 38 & 39 
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Nous vous proposons, avec ce programme, de déplacer un avion de gauche à droite sur 
l'écran. 


18 REM AI 0H 

28 : 

119 AVS=CHRSS 44 5+CHR$C 1 09 5+CHR SC 36 à 
139 : 

135 LORES 1 

144 FOR #=1T0 39 

145 : PLOT #-1,15," "  :REM Effacement arriere avion 
159 : PLOT #,15,4V$ 

155 : HMAIT 5 

164 HEXT # 

174 : 

184 GET 4% 

269 TEXT 
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FONCTIONS 
PARTICULIÈRES 


Choix d’une couleur pour une partie d'écran : 


En mode graphique, il n'existe pas d'instruction BASIC pour choisir les couleurs 
FOREGROUND et BACKGROUND (de fond) pour une partie d'écran. 
Il faut recourir à l'instruction POKE. L'écran est divisé en 200 * 40 cellules. 


40 
RE —————— 


POKE adresse mémoire, couleur FOREGROUND 


Pour définir une bande rouge de hauteur H, nous écrivons : 
Naturellement, la bande FOREGROUND rouge ne se voit pas à l'écran. 


14 HIRES 

20 : 

39 H=54 

48 FOR AM=49964 TO 4496@+H+4G STEF 49 Partie 
5@ : FOKE AM,1 


68 HEXT AM bas 


89 CURSET 4.9,1 
26 DRAU 144,1a9,1 H so] 





E— 
Partie blanche 
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Ci-dessous, nous traçons une bande située au milieu de l'écran, 


19 HIRES 

29 : 

39 X1=20:11=100:H=50 
48 FOR Al=40960+11*49 TO 49960+C1+H)#4Q STEP 4 
5 : POKE AM+41,2 

6A HEXT AM bu 
74 : 

8@ CURSET 59,114, 1 

94 GRAU 148,0,1 


x 


Vert 





POKE adresse mémoire, couleur fond 


De la même façon, la couleur de fond (BACKGROUND) d’une partie d'écran peut être 
programmée. Il faut ajouter 16 au numéro de la couleur. 


HIRES 


: . FOND 
H=Sû H = 50 ROUGE 


FOR AM=4M96n TO 4496ñ+Hk49 STEF 44 
: POKE AM.d6+ 
HEXT AY 


|| Rouge 








DUAL 
DR Dn 


La séquence ci-dessous définit à la fois une partie FOREGROUND bleu et une partie 
BACKGROUND rouge. 








14 HIFES FOND ROUGE 
cb: ECRITURE BLEUE 
35 HS 

di FOR AN=4@9En TO 4AREG+HE4D STEP 4 

SA 2: PÜÉE AM lé+ Sr] 

Éf : PÜFE A+i,d. 

T4 HEXT FM RS 

SA 

94 CURSET EM, 24, 1 Bleu | 

194 DCEAMH SE. 
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Droites multicolores : 


FEM----— TRACE CE CRODITES CE COULEURS DIFFERENTES 





Ar En it 





GOSUE Eû 
REM------ eee CÉDITE ROUGE 


sù Ed Cat at Can Fr Pa ee EN Lo fi 


TN 






M : 
:Dv=18 
1: GOSUE 6 








tt 

55 STOP 

59 REM-----rmemmmmu SOUS PROGRAMME 

A “IzINTISESE à YO, YO 
TA v1=v@ 

75 DISIHTCDK/6 1: D2=D 

EE: 

(an DCIST=SGES CID MES Mémoires 
114 Cx=Ci-CIST:CY"= “Pockées" 
126 

134 FOR D=i TO CIST+] 

148 3 SITE AT 4CECX 11 

154 : Y=INTÉ Y1+DtC 3 

155 : ANM=B+É dA# ri + 

168 : FOKE AM,C 

1F4 HEXAT C 

184 : 


248 CURSET *A.*@.1 
218 DRAM Ci. Cr:1 
224 RETURH 


FILL nombre de lignes, longueur, couleur foreground : 


e La couleur foreground d’une partie d'écran peut également être choisie avec FILL. 
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Feux bicolores : 


Nous dessinons 2 cercles pleins. En choisissant les couleurs FOREGROUND), nous les faisons 
apparaître en rouge et vert alternativement. 


R 


UE Lower emi 
— SONGS Œ 


118 
128 
134 
14% 
145 
147 
154 
154 


ihimnmr 
ei LD CO 
29m 


EM FELIX BICOLORES 


HIRES 


H=38 :REM HAUTEUR TRANCHE 


Cisi: C2 :COSUE 174 
GOSUB 16 

HAIT 2 
Ci=2:Céel:GÜOSUE 1F4 
AIT 2G4:G0T0 £G 
EHC 


:REM COULEURS 
RE CERCLES 


‘REM COULEURS 


PREMMEratenrateun TRACE CERCLES =. 


FOR F=i TO. 18 
CIRCLE K.1 
HEXT K 


CURSET 146, H+H-2,1 
FOR R=l TO 1 
:CIRCLE K.1 

HEXT F 





Foreground 
30 72 rouge 
30 72 Foreground 


vert 











REM = SPCM COULEURS = 
FOR AM=4n362. TO 40369+40kH STEP dû 


: POKE AM,C1 

POKE AM+S4EEH, CE 
HEAT AM 
RETLIFH 


En changeant les couleurs FOREGROUND, le cercle rouge devient vert et le cercle vert devient 


rouge. 


Le sous-programme en 160 peut être remplacé par: 
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Soleil levant : 


Un cercle jaune plein se déplace du bas de l’écran vers le haut. La partie basse de l'écran avant 
une couleur FOREGROUND identique à la couleur BACKGROUND, le tracé du cercle 


n'apparaît pas dans cette partie. 


142 


1 RE SOLEIL LEVANT 









cri ture Fous 


EN Déplacement 


Background rouge 
foreground jaune 






ce 
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Ciel étoilé multicolore : 


Des tranches de couleur FOREGROUND (hauteur 12) sont choisies au hasard. Des « x» sont 
affichées au hasard sur l’écran. Leur couleur correspond à celle de la tranche où ils sont 
affichés. 


à REN CIEL ETOILE MULTICOLURE 


HIFRES 
HT=1£ :RENM Hauteur tranche culeur 
REM--e eee Foreground Couleurs aléatoires 
FOR AM=dGuEt TO dAAéG+sAAkd4g STEF HT4£4f 
CesRMDie LEFT 
FOR He TO HT-1 
FOÉE AH+H#£d44, C 
HE*#T H 






st a Lo liées 
CS DEEE 


œ 








38 : 
4% MEXT AM 
EG REM---e ennemies Etoile 


ï 
Fr 


f 
É 






SA FOR Exi TO 54 

FE BeRMDE 1 EE SG eRMDE 1 141858 
EL CLIRSET 4,1. 6 

94 : CHAR 4Z,6,1 

194 MEAT E 

















ORIC POUR TOUS | 143 


ACCES AUX CODES ECRAN DES CARACTERES : 


Chaque caractère affiché à l'écran est un ensemble de points allumés à l’intérieur d’une matrice 
8 x 8. 


8 octets en mémoire sont utilisés pour représenter cette matrice. 


BINAIRE DECIMAL 





001000 8 
01010020 
100010 34 


001000 


010100 








Si nous connaissons l’adresse de la zone mémoire où est stockée la définition des caractères 
écran, nous pourrons y accéder grâce à l'instruction « PEEK adresse mémoire » et « grossir » ces 
caractères à l'écran en utilisant la basse résolution. 


Les instructions 1000 à 1100 convertissent en binaire les valeurs décimales (obtenues par 
PEEK) en valeurs binaires. 


ORIC-1 s'affiche en gros caractères, la couleur de chaque «pavé» est choisie au hasard. 


CRE Leo à 
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à RE GROS CARACTERES MULTICOLORES 


18 CLS 

15 LORESA 

29 H$="ORICI" 

34 : 

46 FOR Pzi TO LEHCHS: 

54 :C$=MILÉCHS.F,15 

ÉA :C=ASCC CS: A=d6G6G : D<C+xE 

T4 :FOR H=9 TO 7 

8Q :  ACMI=PEEECA+C+H: 

934 :HEXT H 

164 GOSUE 1444 

194 HEXT F 

294 EHD 

1040 REM-----m mme Dessine caractere 
1916 FOR H=G TO F :REM & LIGHES 
1934 : FÜR M=7 TO 4 STEF-1 :REM CONVERSIOH BIHAIFRE 
1644 :  GeINTCACHi 22 RekCMOD-C CEE 5 

1954 : XxCMHi=z( 

1974 : IF R=G THEN #=16 ELSE #=1F+RHDé 1 5#4 
1984 :  PLOT CF-1 #74, 144+H,% 

1434 : HEAT M 

1148 HEAT H 

1114 RETURH 
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MODIFICATION D’UN CARACTERE D'ECRAN : 


Avec le programme précédent, nous accédions aux codages internes des caractères affichés à 
l'écran. Ici, nous modifions ce codage de façon à changer l'affichage du caractère «B» qui 
devient 





X$() 
000000 
100010 B 
000000 
001010 
YvY 
8 2 


Lorsqu'on appuie 
sur la touche ‘B' 
c'est !-‘ qui 

est affiché 


Pour cela, nous codons en DATA le dessin du caractère (ici un DE). Nous convertissons le 
codage binaire en décimal puis nous le rangeons par : 


POKE adresse mémoire, code décimal. 


Les valeurs décimales peuvent être obtenues en ajoutant 2055 PRINT ND. 


Les instructions 1000 à 1110 ne sont pas nécessaires. 


Autre exemple : 
Pour dessiner une silhouette de soucoupe volante, nous faisons: 















FD, HO: HEUT H 











BOLLTOURE vert 
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2 REN CESSIN C'UH CE 


F C$="E" " Caractère à changer 
CEHECE CS 

14 A=dEGSE : DECXHE " Hdrésse memoire ecran 

12 LÔFES 

13 REM--eensenenenne Dges in caractere 

14 ABC Ge" à 


È 

CR 

e re 
5 CLS 
e 

L 

(en ] 





165  CogUE 166 

114 GOSUE 29049 

115 FRIHT C# 

289 EHC 

1HAE Elles. MF ICHASE Gros caract 
1814 FOR He TO F 

1424 : FOR Mal TO LENS S#CH au 

1834 2 FeWALE MID SE HI M 1 

1844 2 FeVALEMICDE Him lia 

1954 : IF Fzl THEH A ELSE “ele 

1868 :  PLOT M, 164, 

1434 :HEXT M 

1188 HEXT H 

1119 FRETLURH 

1999 REl--sss Core din Edna dre rade ira l 


“ 


1N 











249 FER H=f To F 
cat MDr=11 

2GE9 : LeLENÉ EE Hi 
2934 : FÜR Mel TO L 






26484 © ReVALEMIDSE HSE NM M 1 0 

LAS 5 MDSMDHRSEE EE Lepf 0 

£B64 : MEAT M 

2674 POKE € A+C+H 1, HD :RENM Modification memoire gcran 
S4rS PRINT HC 

260889 HET H 

2934 RETURH 

P1QA REMassetsesmmmes ses mme sem mmsemme 
2145 REM METHODE DIRECTE 

2147 REM FAIRE RUN 2114 

2118 A=déGEG : Che"pt: CEASCE CS: DECXE 
2124 DATA 6.34,9,8.64,34.0,09 

2134 : 

2148 FÜR H=ë TO 7 

2154 :REAL HD 

2169 :POKE A+D+H,HC 

2179 MEXT H 
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M 


Pour expliquer comment fonctionne un ‘Interpréteur Basic’, nous avons écrit en DATA un 


ini-interpréteur de boucles : 


pseudo-programme. 


30 
ac 
oÙ 
Qu) 
70 
80 
9C 
1CÙ 


120 
130 


140 
120 


160 : 


170 
1860 
190 
20€ 
21C 
220 
23C 
2at0 
250 
26Ù 
270 
280 
29C 
30C 
31C 
320 
330 
332 
354 
336 
34C 
350 
36C 
370 
380 


RUN 


Gra 
B 
B 
B 
Gra 
B 
B 
B 


REM = pseudo programme interprete 
DATA REPETE 2 
DATA PRINT "Grande boucle" 
DATA REPETE 3 
DATA PRINT Boucle interne" 
DATA ENCORE 
DATA ENCORE 
DATA * 


Table CDS ( 


FOR I=1 TO 160 


READ X$:IF X$="#*x" THEN NC=1-1:GOT0 170 1 | REPETE2 


















CD$(1)=X$ PRINT ‘‘GRA 

: PL — 
PL=1] :REM pointeur de ligne courante : _ 

5 
L GH2CDS(PL) 
C$=LEFT$(LGS$,4) 

IF C$="REPE" THEN GOTU 33C 

IF C$="ENCC" THEN GOTO 37C 
PRINT PL3LG$ PRæ] | 

PL=PL+] ee Se 

IF PLONC THEN STOP PILE RP( ) RIÉÉRELS 
GOUTO 19C N° ligne nombre de boucles 
RÉ Repete 
REM PR --> pointeur pile RP() contenant no ligne apres REPETE 
REM NB() contenant nb de boucles 
FOR P=1 TO LEN(LGS) 

IF MID£(LG$,P,1)=" " THEN 34C 
NEXT P 
P=C 


PR=PR+1 :RP(PR)=PL+1:NB(PR)=VAL(RIGHT$(LGS$,LEN(LG$)-P)) 

PL=PL+1:GOTO0 190 

REM----— mm mm Encore 
NB(PR)=NB(PR)-1:IF NB(PR)DC THEN PL=RP(PR):COTO 190 
PR=PR-1:PL=PL+1:GO0OTO 190 


nde boucle 

oucle interne 
oucle interne 
oucle interne 
nde boucle 

oucle interne 
oucle interne 
oucle interne 
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Tracé de figures : 


La plupart des langages proposent des ordres graphiques où sont spécifiées les coordonnées X, 
Y des droites à tracer. Le langage LOGO propose des ordres graphiques originaux. Nous en 
avons simulé deux en BASIC : 


AVANCE distance : Trace d’une droite d'une longueur égale à ‘distance’. 
ROTATION angle : Change la direction du tracé en lui ajoutant ‘angle’. 
DX 


——  — 


DY. 


Y - D X SIN (ANG) 
Rotation, 90 ANG 
a. 


X - D x COS (ANG) 
Avance, 20 


18 FEM --- Trace de dessins ——- 
29 HIFES:IHE 5 
39 “G=106:"4=144 


46 DATA ROTATIOH, 45. 
59 CATA AYAHCE, 59 
68 CATA FOTATIOH, 36 
F9 CATA AVANCE, 54 
F2 CATA ROTATIOH, 34 
F4 DATA AVANCE. 56 
GATA FOTATIOH, 94 
CATA AVANCE. 54 
DATA FIH 


REAC CH 


f 
A : 
4 IF CHS="FIH" THEH 354 

A IF CM$="FOTATION" THEN REAL FE: ANG=HNG+R: COSUE ZTE 
A IF CHMS="AUANCE" THEH REALC CIST:GCOSUE 2964 

6 GÛTO 14f 

A FEM AO le mme ce oo on a oo 
6 A [e) PRE AHG=ANG-3EE 

fi PE 










81 _ G1 THEN C=i 
.G1 AH C 


toi Piliipiemenr de be ID OI 
; J 





rene nn nes Trace droite een ve nee eee ve 


Re FENM DePlacement x "T 
RU Dé ‘À 





Be E+ D 
RETURH 


GET A4 
TEXT 
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Mini-interpréteur LOGO 
Nous interprétons en BASIC quelques ordres graphiques du langage LOGO. 
Instructions de base : 


DISTANCE 10 La distance courante devient égale à 10. 


AVANCE Avance de la distance courante. 
AVANCE 10 Avance d’une distance de 10. 


ROTATION 90 La direction courante est modifiée de 90 degrés. 


DIST. + 3 La distance courante est augmentée de 5. 
LEVE Le tracé n’a plus lieu. 

BAISSE Le tracé reprend. 

Boucles : 


Les instructions entre REPETE X et ENCORE sont exécutées X fois. 


REPETE k& 
ROTATION 90 
AVANCE 

ENCORE 


Cette séquence dessine un carré. 


Fonctions : 


Des ‘fonctions’ se déclarent ainsi. 
DEFI TRIANGLE 


REPETE 3 
AVANCE 
ROTATION 120 


ENCORE 
FINI 


Pour dessiner un triangle, il suffit ensuite d'écrire : 


TRIANGLE 


Au moment de la lecture des instructions, la ‘fonction’ est remplacée par la suite des instructions 
qui y sont écrites. 
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Dessin d’une étoile 4 branches : 


REPETE À 
AVANCE 10 
ROTATION 160 
AVANCE 10 
ROTATION -70 

ENCORE 


Etoile 5 branches : 


REPETE 35 
AVANCE 10 
ROTATION 160 
AVANCE 10 
ROTATION -88 

ENCORE 


Octogone : 


REPETE 8 
AVANCE 10 
ROTATION 45 

ENCORE 


3 carrés : 


REPETE 3 
DISTANCE 5 
BAISSE 
CARRE 
LEVE 
AVANCE 15 

ENCORE 


Spirale : 


DISTANCE 5 
REPETE 6 
AVANCE 
ROTATION 90 
DIS+ 2 
ENCORE 


160" 





70 - 180 — (360/4) - 20 


88 = 180 - (360/5) - 20: 


45° 
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152 


14 BEN ue fAT ET EST ML TELE LEE Eee ue 





HIFES : TIMES 





Le dés Commandes das CLMé 1 me 


PRIHT 





LT Rif [4 
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e Potter de Lignée courante ee 














“pére 


"CTHEN RETUEH 


PR: COTO 698 


" ra Vi 1 M a an né ne ne ae ae 


Trace démite 


A THEM FEÉTHT 


MÉRREUR  CDBE PL 5 MATT CHAGERETURH 
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SE PS Te 

1:14 GÛOSUE Séd 

1284 CISTECUIST+ MALE RIGHTS LOGS, LEME LI deep 

1239 RETURH 

124 REM esse me nu me me ne ne meme Gtinck ae fonction dans FC memmne 

1254 HF=HF +1 

1268 FHÈMF, 6 eRTGHT SE M, LEMC 48 1 1 

1278 FOR Fel T9 14 

1284 READC F&CHF.F2 

1294 IF F&CNF.Fie"FINI" THEN RETUEH 

1344 HEXT P 

1318 STOF 

1929 REM eus vec men Insertion Pons ion eee 
3sù Pal 

13 IF F&CK, FustFINI" THEH RETUREH 

13684 COST EF $EK, F2 

1378 FaF+l:Tel+l: GÜTO 1556 


FSC.) 


CARRE | REPETE | ROTATION| | 


LH 











NF —> 


154 | oRIc POUR TOUS 


LES SONS 


Sur ORIC-1, il existe des sons déjà programmés. Ainsi, en frappant «EXPLODE » vous 
entendez un bruit d’explosion. 


Il existe également : PING 


ZAP 
SHOOT 


SOUND canal,période,volume : 


Cette instruction envoie une fréquence sur le canal spécifie (1, 2 ou 3). La période doit être 
comprise entre 1 et 32000, le volume entre 0 et 15. 


cn ef IT Er4 M, Volume 

LA SOUHE 1.58, LE 
nd | 

rende] 


Volume = 0 indique que le volume est contrôlé par PLAY. 


Si la commande PLAY n'est pas programmée, seul le canal 1 fonctionne. 


16 FOR Fes6ä4 TO 1 STEP -55 

E4 : SOUHD 1,F.14 

25 : PRINT "FREQUENCE :";ic1-F3#1006a4 
er : WAIT 1484 

GG HEXT F 


Pour le bruit, utiliser 4, 5, 6 au lieu de 1, 2, 3. 


Music canal,octave,note,volume : 


Joue une note sur le canal, spécifie (1, 2 ou 3). 


Le niveau d’octave est compris entre 0 et 6, note entre 2 et 12. Pour volume = 0, le volume est 
contrôlé par PLAY. 


Ce programme joue les notes Z à 12 pour un niveau d’octave. 
5 IHPUT "OCTAVE 64-83 "iQ 
6 : 
14 FOR H=£ TO 12 
24 :MUSIC 1,0.H,16 
5 :HAIT 5% 
HEXT H 


E 
A : 
SG GÜTO 5 
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Play voies autorisées,voies bruit,type enveloppe, pé- 
riode enveloppe : 


Play contrôle la correction des canaux, le type d’enveloppe et la période de celle-ci. 


Voies autorisées : 


Le codage interne des voies est fait en binaire sur 3 bruits, chaque bruit représente une voie. 


4 2 1 


Lotifi] 


mi 


La commande des canaux 1 et 2 se fait par : 


NN m 

 S à 3 = 2 +1— (PLAY 3,...) 

S 8 Pour1,2et3 7=4+2+1(PLAY 7.) 
Voies bruit : 


Le principe de codage des voies est le même que ci-dessus. 


Exemple : 


Bruit de vagues sur le canal 1. 


#7 Période 


enveloppe 





Type 
Bruit enveloppe 
canal 1 
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Type Enveloppe : 
Période Enveloppe : 


Lorsque le volume spécifie dans SOUND ou MUSIC est égal à ZERO, la forme et la période du 
signal sont déterminées par « Type enveloppe» et «période enveloppe ». 


0 ES DUREE FINIE 


0 
5 NN 
& NN EAN 
a — CONTINU 
ANA 
F——— 


7 





19 REM ESSAI EMYELOFFE 


34 IHPUT "EHVMELLOFFE "3E 
44 INPUT "PERIODE EHYELOFFE "3F 


Sa 
64 MUSIC 1,3,4,0 :REM voleg -> controle Par FLAY 
7 : 

84 PLAY 1.6E.F 

34 GOTO 3% 

14 PLAY PLAY 8.5.1 Sioppe tous lessons 
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Morse 


Ce programme vous permet d'apprendre l'alphabet MORSE. 
Par exemple, en appuyant sur la lettre S, vous entendez 3 sons brefs. 
En appuvant sur 0, vous entendez 3 sons longs 


FEM MÛRSE te EC TE SE 


mm 
Un Fo 


PRINT CHERS E à :REM Clavier muet 
A4 DATA: sais mods ne 


LL e— | 
B |  —| 
46 DATA <nn odeure mt ie nm nn uie C—.—e. 
D DATA See, mammaire DER 
ÉADATA 2 in ee eee à 

DIM MRSSC 26) z me | 
FOR Pei TO 26 

FERD MESSE Table MRSS( } 
HEXT F 


(a GET #4 


Be be br be be LD O0 —f 
Lo Fe Gi 9 © 


44 P=f ECC #Ga-Ed: IF Pes-6d THEH PRINT CHERS 6: EM 
145 : 

158 IF Féi OR F226 THEH 14% 

164 AS=MRSSE P 2 


165 : 

174 FÜR Feil TO LEH#K# 

169 : IF MID ASP, 152", THEH SOUND 1,599, 12:HAIT 2: SOUMD 1.568, à 
194 : IF MID&C#S,F, lie" THEM SOUHD 1,596, 13: MAIT 36:£S0UND 1,596, 
244 : MAIT 14 

214 HEXT F 

224 GOTO 12 

239 REM=---mnmns nee ee me ane eme men mme 

244 FEM Four afficher en MORSE 

299 REM faire: 165 PRINT MRS$IP Hi"; 
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Pian’Oric 


Ce programme permet de jouer des notes à partir du clavier. Le programme s’arrête lorsque 
vous appuyez sur « CTRLC» (code 3). 


1 
Î 
E 
er | 
5 
d 
a 
Ë 
Ë 
É 
F 
Î 
4 
LÀ 
el 
Ce 
Le 


HA CLS 
5 PRINT CHR&CE à :REM CLAVIER MUET 
A DIM CL 4, Cé gé n, Hi 46 


ä CATA 
A DATA 
CATA E 
CATA K,5 
CATA T:3: 


_ 





DATA FIH 





FOR P=1 TO 4% 

READ $:IF HS="FIH" THEN 30 
RERD OT, HT 

239 : CLSC =x$ : OC PS ÛT : M PDENT 
244 :MEXT F 


demie Ci LE Fini 


RER DER EX EX] 





Hs EVS: IF Re" THEN HE 

IF ASC «RUES THEH PRIHT CHARS 6 3: ED 
FOR Isi T0 F 

CIF CL&OTIE SES THEN Gé 

MUSIC 1,06 T2 MOT 2,16 

‘PLAY 1,4,6,6 

HAIT 34 

FLAT @, 4, 6,6 

HEXT I 

GOT 344 


DOS JA GLeUnSS 


LD Go Co LOL Lo Co Le 0 Co LG PQ F 
= M O1 BR Co Lo Le Poe Ci Ci LA 
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ANNEXE I 


RÉCAPITULATIF 
DES INSTRUCTIONS BASIC 





ABS (-— 5) 


Donne la valeur absolue d'un nombre 


PRINT ABS (- 5) 5 





AND 


Permet le test de plusieurs conditions: 
Les instructions après THEN sont exécutées. 
SI condition 1 ET condition 2 sont VRAIES: 


90 INPUT “X 2": X 
100 IF (X > 0) AND (X < 10) THEN PRINT "X est 
supérieur à O et 
inférieur à 10°” 





es 


ASC (‘B‘) 
ASC (CHARLIE") 


Donne le code ASCII d'un caractère 
ou du premier caractère d'une chaîne 
(qui ne doit pas être vide) 


PRINT ASC ("B") — 66 
PRINT ASC (CHARLIE") — 67 








ATN (X) 


Fournit l'arc tangeante de X exprimé en radians. 





CALL X 


Appelle le sous-programme d'adresse X. 
Retourne en séquence après un RTS. 





CHAR code, jeu, coul. 





CHR$(66) 


CHR$(7) 





En haute résolution, dessine le caractère de code spécifique, 
à la position courante du curseur. 

‘jeu’ (0 ou 1) spécifie le jeu standard ou alterne 

‘code’ doit être compris entre 32 et 127. 


CHAR 65.0,1 dessine le caractère A. 





Donne un caractère dont le code est 66. 
C'est-à-dire B 

PRINT CHRS(66) Affiche le caractère B 
PRINT CHRS(7): Active la sonnerie du clavier. 





CIRCLE rayon, coul. 


Dessine un cercle centre sur la position du curseur. 
0: BACKGROUND 1: FOREGROUND 2: INVERSE 





CLEAR 


Initialise les variables à 0. 





CLOAD “PROG” 
CELOAD “PROG”,S 


Charge le programme PROG en vitesse rapide. 
Charge PROG" en vitesse lente. 
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CLS 


Efface l'écran. 





CONT 


Réactive l'exécution d'un programme interrompu par 
‘BREAK où ‘Ctrl C’ ou STOP dans un programme. 





CURMOV Dx.Dv. coul. 


Déplace le curseur sans dessiner. 





CSAVE PROG” 
CSAVE *PROG”.S 


Sauve le programme PROG sur cassette en vitesse rapide. 
Sauve PROG sur cassette en vitesse lente. 





CURSET X.Y.coul. 


Positionne le curseur au point X.Y 
X doit être compris entre 0 et 239 
Y doit être compris entre ( et 199 





DATA ‘‘Janvier:”,.83 


Définit des données qui sont lues par READ 


10 DATA ‘Janvier:"",83 
20 READ MOISS:READ AN 
30 PRINT MOISS.AN -+ Janvier 83 





DEEK (adresse) 


Fournit en décimal le contenu de 2 octets successifs. 





DEF FNx(X) =. 


Définit une fonction de X. 


10 DEF FNA(X) - X/2 
20 PRINT FNA(12) 6 





DIM MOISS$(12) 
DIM MOIS (12) 
DIM VNTE(12.5) 


Réserve la place pour une table MOISS!() 


(Une table non dimensionnée par DIM 
est dimensionnée à 10 par BASIC) 





DOKE adresse.valeur 


Range une valeur décimale dans 2 octets consécutifs. 





DRAW DX.DY.tyupe coul. 


Dessine une droite à partir du point courant 


0: BACKGROUND 1: FOREGROUND  2:INVERSE 

















ELSE IF cond THEN instruction ELSE instruction 
Exécute la ou les instructions après THEN 
si la condition testée est VRAIE. 

Exécute la ou les instructions après ELSE 
si la condition testée est FAUSSE. 

END Définit la fin du programme 

EXP(X) Donne l'exponentielle de X 

EXPLODE Provoque un bruit d'explosion. 

FALSE Donne 0. 








FILL nlignes.ncol.coul 


Remplit ‘nlignes' de l'écran avec la couleur spécifiée 
à droite du curseur. 
L'écran comporte 200 lignes de 40 colonnes. 
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FORI-1 TO 5 
NEXTI 


Toutes les instructions entre FOR et NEXT 
sont exécutées 5 fois. 

10 FORI=1 TO 5 

20 PRINT LIEXKI 

30 NEXTI 


5 25 








FOR I=3 TO 1 STEP-1 








NEXTI 


10 FORI=3 TOISTEP -1 
20 PRINT EKlI 
30 NEXTI 


3 9 
2 4 
dr 















Donne la place libre en mémoire centrale. 
PRINT FRE(0) — 15234 














Lit un caractère au clavier (sans l'afficher) 


10 GET X$ 
20 PRINT X$. 
30 GOTO 10 



























GOSUB 1000 Provoque un branchement à l'instruction 1000 
(comme GOTO 1000) mais dès qu'une instruction 


RETURN est rencontrée. l'exécution se poursuit en 110. 







100 GOSUB 1000 ——— 1000 sous prog 


110; 1010. 
200 GOSUB 1000 1020 … 
210... 1030 RETURN 





GOTO 1000 Provoque un branchement ou programme en 1000. 
Peut être utilisé en ‘mode immédiat’ après une interruption: 
les variables ne sont pas remises à zéro (comme le ferait 


RUN 1000) 











HEXS$(valeur) Affiche une valeur décimale en hexadécimal. 


PRINT HEX$(20) — 14 








HIRES Provoque le passage en haute résolution. 


Le curseur est positionné en 0,0. 











IF cond THEN instruct Teste une condition et exécute la ou les instructions après 
THEN si la condition est VRAIE. 
10 INPUT ‘Votre âge ?”;AGE 


20 IF (AGE>18) THEN PRINT ‘Vous êtes majeur” 
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INPUT ‘‘Année ?";AN 
INPUT ‘Nom ?” :NOM$ 
INPUT ‘‘Nom,Age ?"’;:NOMS,AN 














Affiche le message ‘Année ?’ puis attend que l'opérateur 
entre la valeur de AN. 


Affiche le message ‘Nom, Age ?’ puis attend que l'opérateur 
entre les valeurs de NOMS et de AGE (séparés par 

une virgule). 

Une chaîne ne doit pas comporter de virgule. 


Donne la partie entière d'une valeur. 
PRINT INT(12.6) — 12 


Lit le clavier en permanence et retourne une chaîne vide 
si aucun caractère n'a été frappé. 

10 X$=KEY$:IF X$=""" THEN 10 

20 PRINT X$:ASC(X$) 

30 GOTO 10 





Donne les caractères de gauche d'une chaîne 


PRINT LEFT$("BASIC",3) — BAS 


Donne la longueur d'une chaîne de caractères. 
PRINT LEN("BASIC") — 5 











LORES 0 
LORES 1 


LPRINT ‘Bonjour’ 


MIDS$(X$,7,4) 


MUSIC canal,octave note, vol. 








ON B GOSUB 100,200,500 


Liste tout le programme 
Liste la ligne 10 
Liste les lignes 10 à 30 


Donne le logarithme naturel. 
Donne le logarithme à base 10. 


Passage en basse résolution jeu de caractères normal. 
Jeu de caractères alterné (semi-graphiques). 


Affiche ‘Bonjour’ sur l'imprimante. 


Donne les caractères du milieu d'une chaîne. 


10 X$= "BASIC POUR TOUS" 
20 PRINT MIDS(X$.7,4) — POUR 





Joue la note spécifiée. 





Efface le programme résidant en mémoire centrale. 


Suivant la valeur de B (1,2,3), le programme s'exécute 
en 100, 200 ou 500. 

Au retour du sous-programme, le programme continue 
à s'exécuter après l'instruction ON B GOSUB 


10 INPUT ‘Votre choix ? (1,2,3) ?":CH 
20 ON CH GOSUB 100,200,500 
30 END 

100 PRINT ‘Choix 1'":RETURN 

110: 

200 PRINT ‘Choix 2":RETURN 

210: 

500 PRINT ‘‘Choix 3°':RETURN 
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ON B GOTO 100,200,500 


Même chose que pour ON B GOSUB... Mais sans retour. 








OR 







Permet le test de plusieurs conditions. Si cond1 
OÙ cond? est VRAIE, Les instructions après THEN 
sont exécutées. 


90 INPUT “X?":X 
1001F (X=1)OR (X=3) THEN PRINT "*X est ‘‘égal à 1 OÙ 3” 





PAPER no couleur 








Détermine la couleur de fond de l'écran. 
‘no couleur’ est compris entre O et 7. 





PATTERN nombre 











Permet de tracer des pointillés dont l'image correspond 
à la valeur du nombre en binaire. 
‘nombre’ doit être compris entre 0 et 255. 





PEEK(1000) 






Fournit le contenu de la mémoire d'adresse 1000. 
10 X=PEEK(1000) 


























PI PRINT PI - 3.14159265 

PING Produit un son. 

PLOT X.Y,17 En basse résolution, affiche un carré rouge en X,Y. 
PLOT X,Y, "AAA" Affiche AAA en X,Y. 

POINT(X,Y) Donne — 1 sile point X,Y est allumé, 0 s'il est éteint. 








POKE 1000,12 





Range la valeur 12 (décimal) dans la mémoire 
d'adresse 1000. 





PRINT 
PRINT BONJOUR" 


PRINT DUPONT" :TAB(9). "JEAN" 








Provoque un saut de ligne. 
Affiche BONJOUR 
Affiche DUPONT puis JEAN en colonne 9 





READ MOISS,AN 


cf DATA 





REM blabla 


Tout ce qui suit REM est du commentaire. 





REPEAT 


Les instructions entre REPEAT et UNTIL sont exécutées 
jusqu'à ce que la condition testée par UNTIL soit vérifiée. 


10 REPEAT 

20 : PRINT ‘Appuyez sur une touche” 
30 UNTIL KEY$<>"" 

40 

50 PRINT ‘‘Boucle terminée” 





RESTORE 


Positionne le pointeur des DATAS au début. 
Permet ainsi leur relecture. 





RETURN 


Signale la fin d'un sous-programme. Provoque un retour 
au programme appelant (à l'instruction qui suit GOSUB) 
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RIGHTS$(X$,3) 


Donne les caractères de droite d'une chaîne. 
10 X$= "BASIC" 
20 PRINT RIGHTS$(XS$,3) — SIC 



































RND(1) Fournit un nb aléatoire entre O et 1 
RND(-3) Initialise une série aléatoire 
RND(0) Fournit le dernier nombre aléatoire. 
RUN Provoque l'exécution du programme. 
Initialise les valeurs des variables à zéro. 

RUN 100 Provoque l'exécution à partir de la ligne 100. 
SCRN (X,Y) Donne le code ASC Il au point X, Y 
SGN(X) Donne le signe d'un nombre: 1 positif 

0 nul 

— 1 négatif 
SHOOT Produit un son. 
SIN(X) Donne le sinus de X exprimé en radians. 








SOUND canal,période.vol 


Produit un son avec la période spécifiée. 















































SPC(3) Imprime 3 espaces. 10 PRINT **XXX'"':SPC(3):'XXX'" 
— XXX XXX 

SQR(X) Donne la racine carrée de X qui doit être positif 

STOP Stoppe l'exécution qui peut être poursuivie en frappant 
CONT. 

STRS$(123) Convertit un nombre en chaîne: 
10 X=123:.X$=STRS(X) 
20 PRINT RIGHTS$(X$.1) — 3 

TAB(15) Positionne le curseur en colonne 15 de la ligne courante. 

PRINT “LIBERT":TAB(15):"'Pierre"” 

En LIBERT Pierre 

TEXT Annule le mode graphique. 

TROFF Annule la trace (TRON) 

TRON Permet de visualisers les n° des instructions exécutées 
(est annulé par TROFF). 

VAL(X$) Donne la valeur numérique d'une chaîne: 


10 X$="123 FRANCS" 
20 PRINT VAL{(XS) — 123 





WAIT temps en 1/100: sec. 


Provoque une pause du programme. 





ZAP 





Produit un son. 
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ANNEXE 2 
MODIFICATION DE PROGRAMME 


La modification de programme se fait en se positionnant d’abord sur la ligne puis en recopiant 
la ligne à l’aide de <CTRL A>. 





14 FRIHT "EÉCIHIOLURE" 
24 FEINT "MCMETEL 


Fe 





Positionnement du curseur sur la ligne avec 


Vous appuyez autant de fois qu’il le faut pour vous positionner sur la ligne à modifier. 


Recopie des caractères de la ligne avec CTRL A : 


Lorsque vous êtes positionné sur la ligne vous recopiez la partie de la ligne inchangée en 
appuyant sur <CTRL A3. 


"4 es % Te ges D = 
LA FEIHT MEN tr Appuyer 
A sur CTRL A 
pour recopier 
Vous avez appuyé Les caractères + a de 
13 ue fou frappés È 





effacent les 
anciens 





Remplacement des caractères : 


Il suffit d'écrire les nouveaux caractères sur les anciens. 
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Suppression de caractères : — 


En frappant ‘—’ au lieu de CTRL A, on ‘saute’ les caractères qui ne doivent pas être recopiés. 


Insertion de caractères : 


Pour insérer des caractères dans une ligne (DIS sur l'exemple) il faut frapper 1 DIS | << 


19 PRINT "LE CIM IILIEE" 
LS 


10 fois 7 ; 
CTRL À Anis Y<_< + CTRLA 
pour recopier 
| la fin 
Pour insérer 


On remarque qu’une ligne peut être recopiée avec un autre numéro. 





EDIT n° ligne: 


affiche la ligne spécifiée. 
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ANNEXE 3 
MESSAGES D'ERREURS 


Si le message envoyé par Basic ne suffit pas pour repérer l'erreur, pensez à visualiser en 
mode immédiat les valeurs des variables (avant de modifier le programme puisqu’une 
modification initialise les variables à zéro). 


BAD SUBSCRIPT 


On cherche à référencer un élément en dehors d’une table. 


10 DIM A(13) 
70 PRINT A(15) 
Il faut dimensionner la table avec 15 éléments. 


Cette erreur se produit également lorsque la table n’a pas été dimensionnée par DIM (elle est 
alors dimensionnée à 10 par BASIC). Dans ce cas, PRINT A(11) provoque une erreur. 


10 FOR I=1 TO 15 
20 PRINT A(I); 


30 NEXT I 
Mode 
immédiat RUN — 
0 O0 0... O 
La table BAD SUBSCRIPT 
A n'a pas été 
dimensionnée PRINT I 


+ 11 # 


CAN'T CONTINUE {ne peut continuer) 


L'exécution du programme ne peut être poursuivie : 
— Une instruction a été modifiée. 


DIVISION BY ZERO (division par zéro) 
Division par zéro impossible (ajouter un test IF X = O THEN...) 


ILLEGAL DIRECT 
Cette instruction ne peut être utilisée en mode direct (INPUT par exemple). 
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NEXT WHITOUT FOR (NEXT sans FOR) 
Une instruction NEXT est rencontrée sans qu’une instruction FOR ait été exécutée auparavant. 


100 GOTO 260#— D 
110 : 


190 FOR I=1 TO 10 boucle FOR 
200 PRINTI | perGOTO 
210 NEXT I 


Îl'est interdit 
d'entrer dans une 





Il faut faire : 100 GOTO 190 


OUT OF DATA (plus de DATAS) 
On essaie de lire des DATAS avec READ alors que toutes les DATAS ont déjà été lues. 


OUT OF MEMORY (plus de place mémoire) 


OVERFLOW (débordement) 
La valeur d’un nombre dépasse la capacité prévue. 


REDIMENSIONNED ARRAY (redimensionnement de table) 


On essaie de dimensionner une table qui l’a déjà été. 
On a déjà référencé un élément d’une table, ce qui a provoqué son dimensionnement à 10 par 
Basic, puis on la dimensionne explicitement. 


10 A(5)=123 
20 DIM A(15) 


RUN 
REDIMENSIONNED ARRAY 


RETURN WHITOUT GOSUB (retour sans appel) 


Une instruction RETURN a été exécutée sans qu'il y ait eu une instruction GOSUB exécutée 
auparavant. 


10 GOSUB 100 

30 : 

100 PRINT ‘"'sous-programme" 
110 RETURN 


On a oublié END ou STOP après 10 : le sous-programme est exécuté 2 fois. (Il faut ajouter : 20 
STOP). 


STRING TOO LONG (chaîne trop longue) 
Une chaîne devient supérieure à 255 caractères. 


10 X$=x$+'"A" 
20 GOTO 10 
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SYNTAX ERROR (erreur de syntaxe) 


TYPE MISMATCH 
On essaie d'attribuer une valeur numérique à une chaîne. 


10 X$ = 123 (il faut faire X$ = «123» ou X = 123) 
10 X = «AZERTY» (il faut faire X$ = «AZERTY ») 


UNDEF’D STATEMENT (no de ligne indéfini) 
Une instruction GOTO ou GOSUB référence une ligne qui n'existe pas. 


UNDEF’D FUNCTION (fonction indéfinie) 
On appelle une fonction qui n’a pas été définie. 


REDO FROM START (recommencer depuis le début) 


On essaie d’entrer une chaîne dans une instruction INPUT alors que celle-ci attend une valeur 
numérique. 


#77 | INPUT attend 
10 INPUT "Nombre? ";X une valeur 


numérique 


RUN 


Nombre? DUPONT Z 
REDO FROM START? 1254 F 





EXTRA IGNORED 
On essaie d'introduire une donnée de plus que prévu. 


10 INPUT "Mois,Annee? !";MOIS,AN 


RUN —.. 


INPUT attend 
Mois,Annee? 13,12,45 r4 2 valeurs seulement 


45 est ignore 


16 INPUT "Rue? "RUES 
Considéré comme 


RUN 2 valeurs | 
Rd (virgules séparateur) 


Rue? 11,rue xxxxxx 


Seul 11 est accepté (ne pas entrer la virgule) 
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ANNEXE 4 
SAUVEGARDE DES PROGRAMMES 
SUR CASSETTE : 


La prise magnéto est à 7 broches: 

— 3 pour l’enregistrement/lecture 

— 2 pour la commande moteur du magnéto 
— 2 pour la HI-FI 


Seules les 3 premières broches sont indispensables. Mais il faut alors commander soi-même le 
magnétophone. 


Avec le magnétophone utilisé (Thomson), nous n'avons pas eu de problème, le réglage du 
niveau n’est pas critique. Le cordon doit être court et blindé 





















GND Commande 
LE LOU) moteur 
e ARRIÈRE 
ORIC 
Sortie Entrée 
Sauvegarde : Viese | Record 
rapide PI 
(2400) ay Lampe rouge 


témoin 


- APPUYER SUR ‘RECORD 
- CSAVE "PROG" a 


ou 
CSAVE "PROG",S—, Ps ET 


La lampe témoin du magnétophone doit s’allumer. 


Lecture : 
- CLOAD "PROG" 


ou 
CLOAD "PROG",S Donne le 
ou premier programme 


CLOAD "" $ A rencontré 
- APPUYER SUR PLAY: 
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ANNEXE 5 
CARACTÈRES DE CONTRÔLE 


Clavier: 


<CTRLT> Clavier en mode majuscule (CAPS) ou minuscules (BASCULE) 
<CTRL P> Imprimante 

<CTRL F> Clavier muet ou sonore (BASCULE) - CHRS (6) 

<CTRL D> Double hauteur 


<CTRL Q> Curseur présent ou absent (BASCULE) 


Ecran: 

<CTRL J> Saut de ligne (CHRS (10)) 
<CTRL L> Effacement écran 

<CTRL M> Retour chariot 
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ANNEXE 6 


CARACTÈRES SPÉCIAUX 


Exemple : PRINT ” ”; CHR$ (27); «B»; «VERT » 


CHRS$ (27) + 


Hesse ses el 
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FOREGROUND NOIR 
ROUGE 
VERT 
JAUNE 





BLEU 
VIOLET 
BLEU CLAIR 
BLANC 





RETOUR EN MODE NORMAL 
ACCES AUX CARACTERES ALTERNES 
HAUTEUR DOUBLE FIXE 


HAUTEUR NORMALE CLIGNOTANT 


HAUTEUR DOUBLE CLIGNOTANT 


BACKGROUND NOIR 
ROUGE 
VERT 
JAUNE 
BLEU 
VIOLET 
BLEU CLAIR 
BLANC 








O 


0 1 O1 B © N 


ec 


Bc 
Cc 
Dec 
Ec 
Fc 

Gc 
Hc 
lc 

dc 

Kc 
Lc 
Mc 
Nc 
Oc 
Pc 
Qc 
Rc 


Te 
Uc 
Vc 
Wc 
Xc 
Yc 
Zc 


lc 
]c 


ANNEXE 7 
TABLE DES CODES ASCII 





(BEL) 
(BS) 
(HT) 
(LF) 


(CR) 


(ESC) 








32 
33 
34 
35 
36 
37 
38 
39 
40 
al 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
6l 
62 
63 


SPACE 
! 


REA # 


F5» 4 


— 


: © 00 -J ON O1. © N 


© 








64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 


"TR TN<KXE<CINVOVTOZETK-TILIONMONWE>E 


[ 








96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 ; 

126 - 

127 DEL 


CNLXESE TO SOTDO0O33 7 7 70 + QN og 
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DIFFERENCES ENTRE ORIC-I1 
ET ORIC-ATMOS 


Le Basic de l’Oric-Atmos comporte quelques fonctions supplémentaires : sauvegarde de table 
sur cassette, vérification de sauvegarde et fusion de programmes. 


Les erreurs du Basic de l’Oric-1 ont été corrigées : 

e PRINT TAB () et LPRINT TAB () fonctionnent normalement; il n’est plus nécessaire 
d'ajouter 13 pour obtenir la tabulation désirée. 

e PRINT, fonctionne correctement (tabulation de 16 en 16) 

e pour éditer sur imprimante, il n’est plus nécessaire d'utiliser CALL # EDO1. 

e la fonction STR$ (X) place un espace (code 32) en début de chaîne (au lieu du caractère de 
code 2). 


Les adresses mémoire utilisées dans cet ouvrage sont les mêmes pour Oric-1 et Oric-Atmos : 
— +# 208 (test clavier) 


— 46080 (caractères) 
— 40960 (écran graphique) 


En revanche, la plupart des adresses de routines appelées par CALL XXX ont été changées. 


STORE nom:table, nom fichier, vitesse : cette instruction sauvegarde une table sur cassette. 
Elle remplace la routine langage machine appelée par CALL 1024, nom table. 


14 DIM H$ieG: 

28 FÜR Izi TO 26 

39 ‘HFCIASSTR EI I) 

4 HEXT I 

29 PRINT "APPUTEZ SUR <RECORD: FUIS <RET 
JR " 

CG GET #4 

F4 STÛRE H$."ADR".S 

89 PRINT "C'EST FINI" 

35 EHI 
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RECALL nom:-table, nom fichier, vitesse : transfère en mémoire une table sauvegardée par 
‘STORE. 


46 GET X$ 

SG : 

Éd RECALL A$,"ADR".E 
74 : 


89 FOR I=1 TO 5 
94 :FRINT H$CI) 
199 HEXT I 


CLOAD nom-prog, V, vitesse : vérifie un programme. 


CLOAD nom-prog, d, vitesse : fusionne un programme sur cassette avec le programme en 
mémoire. 

Les programmes de l'ouvrage ‘52 programmes’ des pages 39, 59, 64, 74 doivent être 
modifiés : 

— remplacer CALL 1024 par STORE et CALL 1027 par RECALL 

— supprimer GOSUB 20000. 
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Apprenez l'ORIC — L'“ORIC pour tous” en main, placez-vous devant votre machine et commencez 
à écrire quelques instructions. 

Très vite, vous assimilerez les notions fondamentales de la programmation : variables, tests, 
boucles. 

Vous pourrez alors aborder la “magie” de l'ORIC, les graphiques et les sons, grâce aux nombreux 
exemples illustrés et aux programmes directement commentés. 

Sur ces bases, il vous sera aisé d'approfondir vos connaissances et d'écrire vos propres 
programmes (gestion, enseignement, jeux...). 
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